





Programming the PET /CBM -500- Index 


I K 


I Interrupt disable flag of 6502, 312 K Kilobytes, table 296, 483 
.| SUPERMON single-step, 300, -.W in Kernel CBM standard machine-code jump 
EXTRAMON, 30! / Integrate memory, 302 table, BASIC «4 and BASIC 4, 0# 
IBM 732, 151, 158, 165 Keyboard 253-261; decoding tables, 427, 
1.D. of Disk see HEADER. 230 428; see IRQ, WAIT 757, PIA 255, 77 
IEEE bus: 379,375,378 | References, 376/ Stop disabie 254 / Keyboard buffer, 
CRM version: Port, 3,374 ! Machine-code 16, 257; GET (kernel = FFE4) fetches, 
examples, 376, 377, 379 -382 I Handsheking 68, 259; Examples switching direct mode 
and ATN, 375, 373 [2], 380 [4] I Logical into program mode, 28, 45, 57, 77, 
files, device numbers, secondary address- 157, 257, 259-260; Exists, 68 {1} 
es. see Parameters / Examples include Keywords, BASIC table, 6; see BASIC 
GETS, 69 [3], SAVE, 127, ST, 139, 39175) Kilobaud-Microcomputing magazine, 
IF (BASIC) next line if fatse, THEN or 1, 93, 159, 176, 198, 235, 262, 375 
GOTO if true, 75 KIM 3, 264 
MLLEGAL DIRECT ERROR eg. INPUT. 76 Knuth, D. 132, 449, 450 
ILLEGAL QUANTITY ERROR examples Kolbe, W. 244 
include LOG, SAR with -ve argument, and Kraft, P. 2 
ASC, MID$ with string of length zero 
INC (6502 opcode) increment sadresa, 335 L 
INITIALISE (BASIC « 4 disk) 166. 23 š 
INPUT (BASIC) 76/Crashproofing, 25, 77, pw Ker command, 238, 298 
254 مہ(ا/‎ of GET, 26-28 Standard Data Languages 394 
Entry Environment, 476 LDA (6502 opcode) loads accumulator, 338 
Input buffer Position, deseription, watching px (8502 opcode) loads X- register, 338 
it in uae, 5,76, وه‎ /Example, MERGE LDY (6502 opcode) loads Y-register, 339 
91-94 / see BASIC —. Least-squares methods 452-462, 471-472 
Input file, current eg. 77 [2], 93 LEFT$ (BASIC) left substring, 82 
INPUT4A(BASIC? 78, 114, 163, 169 LEN (BASIC) length of string, 3 
INSTRINGS inserts a BASIC string, δῦ Leon, R. 169 
INT (BASIC) rounds downy er LET (BASIC) assignment, 84, 755 
Interactive System 1 Levinson, F. 67 
ΙΝΧ (6502 opcode) increments X-register 335 Linefeed CHR4(10) eg. 79 [2/; see arif 
INY (6502 opcode) increments Y-register 236 Link Address Pointers sec BASIC 
Interrupt see VIA, IRQ, and NMI Lissajou figures example, 129 
interpolation, Inverse 446, 455, 456 LIST (BASIC) 5,86; ROM differences, 87; 
پر‎ por EE 2, 93, 120, 148, 185, 226, Printer lower-case, 251; Lists screen edit 
, ^ aracte 8, 357- ; and TR , 149 
IRQ vector, 420, J51; generated by screen ρον n med 359 ACE 
pari ponia pe Liverpool Software Gazette 108, 15], 193 
and examples: 257 ff tunes, 28); graph- 60 AMG ο ٣ 
ics, 277: displny bytes, 357: keyboard, d gr : 
å program length, string, and FN DEF bug. 
clock and Stop key, 255, 256; new key- Eme of OLD, 85, 90, 125 [5], 151 
board, single-key BASIC entry, 259-261; LOAD ERROR 90 š 4 


anak پا ار‎ 262 Loaders ordinary, 370: relocating, 377 
Iteration example, 138 owe I3. 176 
(BASIC) converse of exp, 1 
Logical expressions f? ct af. 
Logical file number 90, 127; see parameters 
J LOMEM 5 HIMEM siter BASIC RAM 6 


Jackson, M. 20 to å program 92 

Jiffy Clock 147, 148, 157: end see IRQ Lookup Tables 33 — ._ 

JMP (6502 opcode) jumps to new address, 336; Loops see FOR...NEKT, 64 - 68, 187 exit 
Indirect Jump bug, 488; other methods, and nesting, 66, 13 / with (1, 64 
mee RTI and HTS, eg, 149 [7] LSR (8502 opcode) shift right, 339 

de Jong, M. 261 

ISR (6502 opeode) Jump, saving return, 
137; popping return uddress, PLA 342 

Jump Tables ace eg. 144 4f, 319 


Waira اناو ار اي‎ ὠς ἊΝ. 
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Programming the 17 -591- Index 


M 
.M MLM command to display memory, 297 


MACHINE-CODE: The 6502 chip, Chap. 11, 


Addressing 310; Flags 372; Program 
counter, stack 3/3; Hardware vectors 
313; instructions 314; Tables appendices 
Programming, Debugging 373; Opcodes 
Chopter 12; Program methods, 375 ff in 
Chapter 1! | with BASIC, 28, 365 ff / 
Disks, !94 ff I Graphics, 276 ff | Key- 
board, 255 ff | Mathematics, 465 ff I 
Screen, 6 intcoductory elementary pro- 
grams, 307-309 
And ROMs, BASIC operation, Chop. 5/ 
„Index to ROM routines, Chapter 15/ 
Selected examples, Chopter 13 I 
Conversion between ROMs, 364 

Maclean, W. 80 

Macro Feature of some assemblers, 364 

Malmsberg, D. 278 

Mask see eg. 324 [1], 340 [1] 

Matrix Definitions, examples 458 ff 

Maynard, M. 236 

McCracken, W. 241 

M-E (CBM disk) memory execute, 197 

Mead, T. 108 

Memfix shifts BASIC RAM, 14, 92 

Memory Map RAM and ROM, Chapter 15 

Memory Move 64, 10], 355 

Menu 21, 474, 6 

MERGE Interconnects BASIC programs, 
Tape 93; Disk 54 

Micro Magazine for 6502 and 6808, 
61, 120, 128, 245, 251 

Micropolis disk drives, 3, 158, 211 

Microsoft Software writers, 5, d, 9, 57, 58, 
110, 125, 153, 405, 462, 464 

MID$ (BASIC) takes substring, 95, 32 [2] 

Midnite Software Cazette 25! 

Mikro Assembler chip, 362 

MLM (Machine Language Monitor) 296 ff; 
Operation and subroutines, 418, 420; 
Extended monitors: see Monitor 

MMF (Micro-Mainframe) !, 307 

MOD cniculates remainders, 96 

Modem 253 

Modes: (i) Direct and Program, eg. 6, 
152 [6], Chapters 5 and 7 for individual 
keywords / (ii) Lawer-case and Graph- 
ics, screen modes, eg. 5,!7, 268, 272 

Molloy, J. 2 

Monitor for machine: eode, see MEM; [n 
BASIC. 344 ff; Extended monitors, 
295 29%, and see EXT RAMON and 
SUPERSON 

MOS Technology part of Commodore 
Semiconductor Group, 7 

MPI disk drives, 1598 

M R CCUM disk) memory rend, 189 

Mu PET multi user disk system, 159 

MUSE (αλα useray, 79, 1 

MW (CUM disk) memory write, 190 


“ 
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N 


N Flag for bit ?, 372 

.N Extramon 'New Locater' command, 302 

Nassi-Schneiderman chart, 79 

NEW (BASIC) sets BASIC pointers to start 
position, 97 / Disk NEW, see HEADER 

Newman 5 Sproull 282 

NEXT (BASIC) returns to start of previous 
FOR statement, held on stack, 98 

INEXT WITHOUT FOR ERROR 66 [6] 

NMI (non-maskable interrupt), 262, 313, 440 

Normal Distribution 449 -450 

NOP (6502 opcode} no operation, 340 

NOT (BASIC) unary 18-bit operator, 99 

Numerats: sec Accuracy, Calculations, 
Floating-Point Accumulators, Rounding, 
Variables/ String interconversion, see 
STR$ and VAL, and table, 356 

Nybble 294; interchange, eg. 364 


ο 


OLD Positions pointers to correspond with 
BASIC in RAM, 700 4 90 [2], 224 [2] 
ON (BAS!C) Casentry-like construction, 
with GOTO or GOSUB, 702 

Opeodes 3/4; Alphabetic list with full 
details, Chapter 12; 482, 483, 485 

OPEN (BASIC) Sets up file-table entries, 
checks IEEE device, 701, füe-table part” 
meters, 704; dissssembly, 352 

Operators 1]; priority, 37 

OR (BASIC) 16-bit logical operator, 705 

ORA (6502 opcode) B-bit operator, 340 

.ORG Assembler directive (origin), 363 

Osborne ٤ Donahue 2, 163 

TOUT OF DATA ERROR and READY, 118 

TOUT OF MEMORY ERROR 36 / Calcul- 
ations using stack, eg. !5 / Pointers 
inconsistent, eg. 48 / Stack depth full, 
eg. 72 / Missing null byte, eg. 97 

OZZ (Database system) !84, 185 


P 


„PF Printer disassembly, 201 

Packages 475 

Parameters for logical files, eg. 104 {27 

Parametric coordinates og. 131 

Pascal (Computer language) 434 

Password 04 

Pattern matching with CUM diaks, 89 

Pause 342 

Peddie, C. 2 

PEEK (BASIC) 104 /BASIC 1, 92, 153 [1] 

Personal Computer World ! 

Pertec di«k drives 798 

PET (Preesoonl Electronic Transoctor}, 
nni (ΠΗ͂ passim 

Petarson, T. 179 

PHA (6502 opeode) Push. A on. stek", 1 

PHP 16502 opcode) Push PSH on stack, Jat 


—— 





ramming the PET /CBM 


rry flag of 6502, 312 

xtended monitor branch cale'n, 300 
Nations in machine-code; using ROM, 
ap. 15 f without ROM, Chap. 1? 

atus diffi, e.g. 63 / integral, e.g. 447 
yell, ,نا‎ 236 

iage return CHR$(13) see Crif; as 
sord separator &c. e.g. 1623, 11312] 
ntry flowchart structure. 14, 2 
ALOG (BASIC 4 disk) DIRECTORY 
Commodore Business Machines, possim 
(Commodore Club Newsletter) 2, 732, 
7, 193. 194, 215, 23], 253, 278 

iberlin, H. 289 

mel to disk, 185 /see Secondary Addr. 
inel Data Book 2 

‘acter set Screen, 266 /screen RAM, 

8 /generetor ROM, 287. 272 

:kdigits, letters e.g. 22- 24, 96 

n C. 27] 

weil, R. 267 

v, H. 1 

$ (BASIC) opp. of ASC, 46,& eg 240 
GET 365 and eg GOTO, GOSUB, VAL 
(6502 opcode) clear carry flag. 430 
(6502 opcode) clear decimal flag. 330 
(5502 opcode) clear int.disable. 330 
k example 274/ aee Τί and TIS 

SE (BASIC) 47/ and disk files, eg 1 
(BASIC) Reset variables' pointers, 48 
(6502 opcode) clear V flog, 330 

| (BASIC) print, but leave flle open 
id listening, 49, 77 [2], 11301), 379 [3] 
(6502 opcode) compare with A, 337 

‘OL formatting 115. 162 

on/off bits within bytes, 24‏ وم 

LECT (BASIC 4 disk), 2/9 /۰۷ ۸02 

m statement separator (exe, REM, 719) 

LM function, 297 

IAL ‘Common Algorithmle Language’ 494 
binatorics 59 : 
ma data separator eg.54/3], 69/41. 112 
mand-O BASIC 4 EPROM, 115, 263 
modore Business Machines Sources of 
formation, 7-2/ Hardware evolution, 

mputers I /disks 765-7 / tape 235 

pilers 50, 4 . 

plement NOT, 99/ 2's comp. eg. 112, 295 

ipu /think 90, 126, 132, 148, 152, 198 -210 

pute! magazine 2, 41, 87, 100, 193, 230, 

j6, 237, 278, 282. 379 

putar publications 2, 264, 451 

:puterist's Guide ὁ 

CAT (BASIC 4 disk) 220 /µος COPY 

icatenalion of strings with '*! eg. 32 

ια, D, fF, 21} 

ile sections demonstralton 273 

AT ASIC) Continue program, 50 

tracts, software 478 : 

wenllons in thin book i, 214, 372 

ke, J, 180 


RY PIP رم يوی وچ وې‎ r grae qnos EV en tn 


-498- 


Index 


COPY (BASIC 4 disk)222 / See also 193 
Copy protection, piracy 242, 479 

COS (BASIC) cosine function, 5! 
Council for Educational Technology 331 
CP/M ‘contro! program for micros’ 263 
CPUCN 2, 80, 176, 283, 264, 265, 278, 490 


CPX (5502 opcode) compare data with X. 332 
CPY (6502 opcode) compare data with Y, 332 


Creative Computing 7,47, 12], 267, 282 
Crtf Carriage return and line feed, eg. 


73 {2}, 
Crozier, 


H2 fU. 171, 2 
P. 974 


CRT controller chip 270 
CRUNCH BASIC compression, 52 
Cursor RAM locations 156/ example 45 


D 


D Decimal flag of 6502, 312 

.D Extended monitor disassembly, 300 

D-A Conversion Digital to analog. 264, 293 

DATA (BASIC) 50 /exampies 24 

Data Compression 22, 28, 79 

Date Processing 24, 25, 132 

David, D. 93 

Davis, R. !94 

DBL Extended precision eslculation, 55 

DCLOSE (BASIC 4 disk) writes BAM and 
updates directory on file close, 223 

Debugging BASIC 36, IEEE 382 [2]. 
machine-code 373 

DEC (6502 opcode) decrement address, 333 

Decima! to hex conversion 23, 295, 465, 484 

DEEK double-byte PEEK, 10 


DEF FN 


(BASIC) 9, 56 


DEL deletes BASIC lines, 57 
Delay loops 64, 98, 124, 7 
Deleting disk files see SCRATCH 
IDEVICE NOT PRESENT ERROR 99, 126, 140 
Device numbers see eg. SAVE 
DEX (6502 opcode) decrement X-register 333 
DEY (6502 opcode) decrement Y-register 333 
'Diagnostlc Sense” Pin 222 
DIM (BASIC) $3-59/default, assignment 85 
Direct Mode see eg. INPUT, GET, 77 [5] 
DIRECTORY (BASIC 4 disk) 217-8, 363 
DISKS: Channel 15, 168 Disk Drives, 1 
DOS and ROMs, 759, 793; Hardware de- 
scription, diagrams, etc. 158 ff; reliab- 
Mity and maintenance, 270-213 
Diskettas - floppy disks, description 7 
Formatting new dlaketles, 168 
DISK FULL ERROR note 212, 222 
Disk storage Capacity 167! Directory 169 
f Hender and Block Availability Map (BAM) 
177:184 | Examples 180 - 184 
Machine code programming, 134-138 
Pattern Matching with * and 1, 89 
Diskmon Compu/lhlak DOS, 134-270 
Disk o Pro 87, 115, 120, 1 
DLOAD (HASIC 4 dink) 224 
Documentation 119, 478 
DOKE double vyle POKE, 107 [2] 
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Programming the PET/CBM -493- 


Dongte hardware security device, 151, 479 FIND 7 
DOPEN (BASIC 4 disk) 225 Finn, K. 67 
OOS 14, 2+,2.7, 159, 166, 213 /aummary of Fisher 5 Jensen 376, 380, 382 ہے‎ 

bugs 211-212 / DOS Support 169 Flags 6502, see processor status register 
Double-density graphics see SET Floating-point Accumutators 942-443, 465 
Downey, J. & Rogers, S. 264 ROM with FPAcc#l, table, 6 
Dr. Dobbs Journal 7 ROM with FPAcchH & FPAcc#2, teble, 967 
OS, DS$ 90, 168. 170, 197, 227 {Table 228 Examples, 468 ff / USR to display, 153 
05۸۷۲ (BASIC 4 disk) 9 / other examples of use. 99, 115, 137 
DUM disk utility maintenance, 169 Floppy Disks 758, 0 
Dummy variable see eg. ΕΒΕ. POS, DEF FN FN (BASIC) signals function, eg. 70, 12, 56 
DUMP δῦ, 137, 281-232 FOR..TO..[STEP] (BASIC) toop, 64-56 
DUPLICATE sce BACKUP Formatting 175, 182, 268 ff 
Dvorak keyboard 25? FORMULA TOO COMPLEX ERROR 142 

Forrester, J. 457 
E FORTRAN 102, 130, 472 
Foster, C. 264 
JE EXTRAMON command, sets IRQ, 307 FRE (BASIC) measures free RAM available 
Education 473 ff to BASIC, 67/ time taken, 67 [3j 
END (BASIC) 2 Freeman, R. 759, 198 
EOR (6502 opcode) 8-bit exciusive or, 334 
EPROMs 263 
Erase disk fites see SCRATCH G 
Error messages 25, 32, 71 .G MLM command, Go Run, 298, 8 
E A aa 133 Garbage collection 67 {3} 
EXP (BASIC) eX, converse of LOG, 63 ο. 68-۰89 Jaf 169:32 
Expressions, string and numeric eg. 12, 170 see BASIC/ put Inta RAM by 
5 RESET, 439 /set to start by CLR, RUN 

Extension TV for PET/CBM 265 Glitch, disk 158 


IEXTRA IGNORED 68, 77 / suppressed 78 

EXTRAMON Extended monitor 301, 177,298 GO (BASIC »1) 16, 70 : 

EXTRAMON ΠΟΤΌΝ», را‎ GOSUB (BASIC) 71, 72[1] computed, 368 
GOTO (BASIC) 73 /computed, 7 


Evans; Co 2 Grad measurement of angle. 746 
F Grainger, B. 484, 489 
Graphics PRINT 110; Reverse, 111 [2]: 

Example, 272; dumping screen to 

printer, 281-282. 

Machine-code: double-density, SET. 
False value 0, eg. IF 75 128, 129, 280 fother, 276 fr / columns, 
FILES: Description 20,162; opening and 278 {table, grouped by type, 273 

closing, 766, 226 [1]; setting up. 226 12]; Green, N. 1 

to keyboard, screen, 77 (2j, 78, 79; 

use of GET#,INPUT#, PRINTH, 71 

BASIC 4 syntax, table of L & W, 223 H 
TELE SE v as 22212] ٦ Supermon's Hunt, 300 {modified 303 

A H Hampshire, N. 2, 132, 149, 265 
IFILE TYPE MISMATCH ERROR eg. 90 Hand A bly 72 4 ^ 
File numbers, ioglcal file #, sce parametera Hand ania 4 IEEE, 18 
File number, active see INPUT, TAUG. SPCC yang Codina 25 x49 TM 
Flite types: Direct track Ὁ sector, 166, 3 ng 

185-192 Indexed sequentlal, 5 ee πότ 

Inverted, 145 Program, 175 Random potios ο. η πώ hoe سه‎ 

Access Gnioxed with atgorithm, + ΑΡΗ ποιοί BASIC dU : 

Å E y example, 369 

procedure) 4 Relative, ἰδ], exumplia HEADER (BASIC 4 disk) 230 i t t 

με Sequential, 162, 168, examples "o joj | v Disk NEW y WO Ly pete 

171 - User, 168 1 
Files: Disk: Direct track 6 sector, 185 -_ HELP with ny tion, S5 lth atom, 124 

ud r E Hex to decimal conversion 21, 295, 465, 484 

comparison tabla, 200 i ο of κ e.g. 47. 17 

om, P, å‏ اون 


Flor: Tape: Program, 237 ff : 
Sequential, exemple, headoru, blocks, ٦۲ ۸8 horizontal tabulation, 74 


439 ff 


.F-Extended monitor 'fill' command, 300 
Factoria! example, 63 / formula 449 
Faikner, K. 236 


4 


SP مه‎ v—À s 


v SONTROLLER 


i 
i 
[τ 


xd 


9004 
1.0005 
5056 

0097 
| 2008 
| 2009 

9010 


== 


4 NG) 


[p XE 


۴ 


3 MAN 


.IHEH LOC 


0000 
0000 
0000 
0000 
0000 
0000 
Q000 


T PAGE 0002 


CODE 


LINE 


j HH HE HE HE HE E f E HE E E HE E HE FF HE EEE ور هجهل‎ RETE ېدو‎ 


نس ` 


3t 


ud ` H -. 

;* 8050 CONTROLLER FOR MICROP DRIVE # 

یږ SAE HF E HE E EE‏ چو HEHE HEHE FE E HE HH FE HF RE IE RE HE‏ ز 
END cb ..‏ . 


'.LIB DEFS 


€ a MÀ ——— s به‎ 


er دای‎ apna i ———ÓÀ MÀ M — — e -- 


————— 


5 
ÆR LOC 
τα. 0000 
13 0000 
4 0000 
353 0040 
36 0040 
7 0040 
3 0041 
-9 0041 
7^5 0041 
1 0041 
"e 0041 
23 0041 
4 0041 
-3 0042 
24 3 
7 0044 
9 0045 
J9 0046 
^0 464 
^1 0046 
y> 48 
33 004C 
4 004D 
.9 004D 
πο 004D 
77 QOAD 
8 004D 
JG 004D 
40 004D 
1 004D 
in = 004D 
133 004D 
: 004D 
5 0 
3 004D 
177 004E 
8 0۳ 
NE: OO4F 
)30 0080 
` 1 0080 
42 0080 
353 oo81 
د‎ 4 0082 
5 0083 
56 0083 
TW: 93 
8 0083 
39 0083 
940 0063 
1 0083 
-2 0084 


OOSF 


PACE 0003 


LINE 


; 1/0 REGISTERS 


J 


# =$40 
; MOS 6522 
۷۸6۵ 
VB H=Ht+ Ü 
DIN =#+1 
VDDRB  #=#+1 
% بیت‎ 


TILL H=H+1 
TIMER 3-1 


ται. TILL 
Tin | =TIMER 
H+ ڑپ ہے‎ 
ACR ېږت‎ 
PCR 3 mgl 
IFR t+ 1 
IER HHH] 
+=$80 
; MOS 6530 
MITA 
DOUT ¥= + 1 
EQUT =*+1 
PB st Å 


DDRE *=++1 
ᾱ- ہے‎ 1 1 


MITAT %*=#+1 


aa maa amai m sm .——— ns.  — chen 


mimi - i 8ο,‏ ټیب پوس سس ہی gr‏ مس (ER.‏ سال نو 


; PORT 8 
;BIT 7 SYNC DETECT i-NO O-YES 
;BIT 6 PLL CONTROL BIT 
;BIT 5 MOTOR O OFF 
;BIT 4 MOTOR 1 OFF 
; BITS 3-2 STEPPER MOTOR DRIVE #0 
;BITS 1-0 STEPPER MOTOR DRIVE 4 
; PORT A 
: DATA DIRECTION REGISTER B 


; TIMER 1 LATCH & COUNTER LOW 
; TIMER 1 COUNTER HIGH 


; AUX CONTROL REGISTER 
; PERIPH CONTROL REGISTE 


: BIT O: (SET TO Q) 

;CA1: BYTE READY 1: YES O: NO 
; BITS 1-3: 

; CAZ: FILL/SYNC 

NORMAL: XC‏ و 


; SYNC/FILL: XE 
i BIT 4: (SET TO 1) 
; روم‎ ERROR DETECTED 1: YES 0 
BITS 5-7: 
; 082: READ/WRITE 
i WRITE: DX 
; READ: FX 
; INT FLAG REGISTER 
; INT ENABLE REGISTER 


; PORT ۵ 
; DIR A 
; PORT B 
;BIT ὁ as UNUSED ۳ 
;BIT 4 ODD HEAD SELECT 
;BIT 3 WRITE PROTECT 1: YES 
;BITS 2-1 FREQUENCY (BIT DENSITY) 
; BIT O SWITCH O: DRIVE #0 
i 1: DRIVE 81 
; DATA DIRECT REG E 


; TIMER/1024 


μα ل‎ ma mna cH n ——————— = — - 


E (ONITIONS...... PAGE 0004 


«ER LOC CODE LINE 

d-s 0090 i 

1044 0090 ; RAM ON MOS 6530 
7 7 0090. ; 0000-002F  0100-013F 
Gå 0090 i 

1069 0090 # =0 
ᾳ 2 0000 Å CLOCK #=#+1 
HK. 1 0001 UMTROLK 331 
)6í;2 0002 4 MTRTM demde 
J073 0904 

4 0004 

J47 5 0004 4 DRVST #=#+2 
)76 0006 

Ww 7 0006 

~3 0006 

)079 0006 dsTEPS «2 
1 2 0008 3 COW 33441 
M 1 0009 l WORK #=#+2 
dan 08 Ηέώ 10 

ΟΟΟΒ‏ دام 

Xi 4 8 |] DTRCK #=#+1 
M75 6 5 DSECT #=#+1 
2094  OOQD jo CSECT 31 
y)» 7 08٤7 |: STAB HREES 
X -8 0013 

1089 0013 1° DRIVE #=#+1 
ya O 0014 i 

X1 0014 j 

ہ٠١‎ 0014 4| TRACK *=*+1 
073 0015 an NEXTS ۱1 
ἡ 4 0016 15 SECTR — 1 
75 0017 SUL BUFPT #=#+2 
)096 0019 

0019 7 چو 

E 0019 1) HDRPT #=*+2 
5679 8ہ‎ 

21 ο 12 

27 d OO1B 

jl32 0015 FTNUM بی‎ 
3103 86 IP بیبح‎ 2 
3 4 ΟΟΙΕ CNT #*=*+1 
21-25 7۳ JOB sætt 1 
3126 0020 JOBNUM %*=%+1 
>? 7 0021 DRVTRK *=%+2 
928 0023 STPCNT #=#+2 
3799 0025 CHKSUM #=%+1 
رج‎ O 0026 BI 4 و‎ + 1 
3 1 0027 FLG2 “*=*+1 
3.2 ου NXTJOD #=#+1 
31:2 0629 qmd 41 


------ Li ee ο Bee 


0024. 


NXTRK 


, 


—— Y PY. 


; CONTROLLER CLOCK 
; MOTOR CLOCK CLOCK/16 
i MOTOR TIMER 
i+ WHEN MOTOR FULLY ON 
;0 WHEN SHOULD TURN MOTOR OFF 
; DRIVE STATUS WORDS 
;BIT 7 ACCELERATING O: NO 1: YES 
;BIT 6 STEPPING O:NO 1: YES 
iBITS 5-0 TRAGAH 
i #STEPS TO NEW TRACK 
: USED WITH INTERRUPT 


; +0 CLOSEST SEEK DISTANCE 
;*1 CLOSEST SEEK DIRECTION 
;* SPACES FOR FORMAT 
18 SECTORS UNTIL DESIRED SECTOR 
; CLOSEST SEC FROM CURRENT POSITIC? 
; SECT HEADER TAB 
i SAME FORMAT AS HDRS TABLE 
i CURRENT DRIVES ᾿ 


i TRKH FOR CLOSEST SEEK 
; NEXT SECTOR ON DRIVE 
i #SECT/TRK 


. iL POINTER INTO BUFS TABLE 


;H POINTER INTO BUFS TABLE 


;L POINTER INTO HDRS TABLE 
;H POINTER INTO HDRS TABLE 
; IF =FF THEN NO JOB 

i FORMAT TAG 


: CURRENT JOB BEING DONE 
: CURRENT JOB ID 
; TRACK DRIVE IS ON CURRENTLY 


; OPT TRACK SEEK 
; OPT TRACK SEEK 


a- ae اا‎ oM o nei Ae s 


JE INITIONS 


_IWE# 
"a 
SL: 
21 
Dd. - 
21 
ο πως 
ir 
321^: 
3123 
34 
2j 5 
هپ21‎ 
7 
21 3 
31.9 
139 
Ji. 1 
)1 2 
)133 
)1 4 
(13 


Lad 


uu ^a D^ 


I 0 


PJ ps 


LOC 


0024 
0024 
GO2A 
0400 
04+01 
0402 
0403 
οσα] 
0412 
0412 
0412 
0412 
0412 
0412 
0412 
0412 
0412 
0412 
0412 
0412 
0412 
0412 
0421 
0499 
0499 
0499 
0499 
0499 
0499 
0499 
0499 
0499 
0499 
0499 
0499 
0499 
O49D 
O49E 
O49F 
0440 
0440 
Q4A1 
0443 
0444 
0445 
C444 
O«AB 
O4A4 
0448 


OAC ` 


OSAD 
O4AE 
OAAF 
O4BO 
0488 


) * + * * » 
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LINE 


i 4K DF 


+ 


TICK 
DELAY 
CUTMT 
JOBS 


HDRS 


TABI 
GAP 1 
GAP 2 
VERNUM 


t 
ACTJOB 
PHASE 
STPTRK 
NZONES 
SYNDLY 
WPSW 
LWPT 
PHI 
CFLGZ 
NSIDES 
SPDVAR 
UNUSED 


TAES 


Fo: 


COMMUNITY PROPERTY 


0ھ 4 


3-44 
tore] 
kap- 1 
X-4-15 


#= $421 


3-120 


4e 
=++ 1 
بر مہ اہ‎ 1 
A44 4 


Hate] 
sH#+2 
H=3%4+ 1 
#*=#++1 
#=3j3£+1 
X + نے‎ 
H=3%+2 
ړ ېمد ېدږ‎ 
3£= j+ 1 
gigi 
Bote] 


I‏ سو سے بہت 


*-$45BO κ 


8 بے ہر 


: INTERRUPT INTERVAL 
; MOTOR ACCERATION DELAY ہے‎ € i 
; MOTOR CUTOFF TIME totor - off 


iBIT 7 O: IGNORE 1: JOB PRESENT 
i DITS 6-4 MODE 


i 


١ ١ Í 
κια ο کس ره‎ 


QOO: READ (8) (0) 
QO1: WRITE (9) (1) 
O10: VERIFY (Ad (5) 
O11: SEEK (B) (3) 
100: BUMP (C) (4) 
101: JUMP (D) (5) 
110: EXECUTE (E) (6) 
011: SECSEK (B) (3) XO11 100D 
BIT O: DRIVE O: 885 1: ΒΑ 
; HEADERS ARE AT $421 
15*8 
i HEADERS FOR CURRENT BLOCKS 
SYNC 
SYNC 
14 08 ft 
ID1 
ID2 
TRACK# (BITS 7 & 6 PART OF ID 
SEC TOR# 
CHECKSUM 
: OFF 
6.7: SPARE 


νε ` `. ` *- -: = -- `. .د‎ 


i HSECTORS/TRK INITILIZED BY DOS Fi 
i GAP 1 SIZE SET BY DOS 
i USED IN FORMAT FOR MIN NUMBER OF 


å 


) 


4 
i 
3 
3 
} 


USED BY DOS 


ACTIVE JOB # 


PHASE OF STEPPER 

NUMBER OF STEPS PER TRACK 
NUMBER OF ZONES 

DELAY ON PLLSYN CONTROL AFTER ج١‎ 


WRITE PROTECT 


SPEED MEASURE 
UNUSED 


TRACK BOUNDRY 


SWITCH ` 


TABLE, UP TO 4 Z0 


DE INITIONS 


_INE# LOC 


[ 
21:1  OABB 
οἱ. 2 Ο458 
27 3 868 
01/4 8 
817۰5 8 
οἱ 6 8 
9:77 O4EF 
0178 2٥ 
0* 9 O4F0 
9:0 0٥0 
Didi  OAFO 
01 2 OA^4FO 
Di 3 0ہ‎ 
Dis4  OA4FO 
01۹58 ۵٥ 
Df 4 ٨# 
0157 0 
2188 04F0 
ο). 9 OA4FO 
D:.0 0500 
D171 1400 
D172 1400 


D. 3 


1400 
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LINE 

¥= O4EF 
SYNCS 4-51 
; CONSTANTS 
JUMP = $DO 
EXEC = $40 
BUMPC = $40 
WRTSYN = ΦΡΕ 
WRTDAT = $DC 
PLLBIT = $40 
FLG = 415338 
SAIP2 =$2C 
INIT = $300 

ἃ =$500 
BUFS ¥= +¥ + $F OO 

. END 

. LIB MAINM 


; DATA ON DISK PRECEEDED BY 

i SYNC, SYNC, "07" 

i CHASUM FOLLOWS 256 DATA BYTES 

i THEN APPROXIMATELY 16 SPACING 7 


; JUMP TO BUFFER CODE 

; START MOTOR THEN JUMP 

i RESTORE 

; WRITE SYNC MODE 

WRITE DATA MODE 

; PLL CONTROL BIT. 1= READ MODE... 


: BIT INSTRUCTION TO SKIP NEXT 2 


i =15*256 
; SET OF 15 1 BLOCK (256 WORD) BUFF 


INDIRECTS...... PAGE 7 


- JINER LOC CODE LINE 
2175 1400 #=$F COO ; ROM START 
2176 FCOO 14 FC STARTI . WORD START ; INDIRECT TO START ROUTINE 


5197 FCO2 Al FE DONEI . WORD ERROR ; INDIRECT TO DONE ROUTINE 


i 


Aa KD LO ہاب‎ On 
دم د‎ ODIUM 


)ا نبا لان لا I QJ‏ 
Ὁ‏ حم RI!‏ زا خ ن 


PE 
ko 


mo 
M 


rere at PAGE 0008 


ι ος CODE LINE 
FCO^ RESET 
ΕΟΟ} AO O2 LDY 2 ; WAIT FOR 2 SIGNALS 
FCOS RESET1 
Fco 86 OO 04 STY $0400 ; STORE NON-ZERO FLAG. 
FCO? RESET2Z 
FOC? AD 00 04. LDA $0400 
FCOC DO FB BNE RESET2 ; WAIT FOR DOS 
COE 88 DEY 
FOOF DO FS BNE RESETI ; ONE MORE TIME 


FCii 4C OO 05 JMP INIT i DIAGNOSTICS & INIT CODE 


D 
1 
" 


IDLE LOOP 

¦ .IHES LOC 
j 32:10 FC14 
1211 FC14 
29i2 146 
j22:3 FC16 
3214 77 
2215 668 
O2i6 FC1C 
193017 FCIE 
-—2i18 FC20 
02:9 FC21 
222 FC24 
"222i  FC24 
15222 FC2s 
9223 FC27 
^ 3224 85 
| 0225 FC2A 
022 FC2A 
3227 0۵ 
3228 ۵ 
0229 FC2C 
5230  FC2F 
323 ۴1 
3232 FC33 
9233  FC35 
5234  FC37 
(C235 FCA 
226 FCSC 
2237  FCGSE 
2533 FC40 
0239 FC42 
S240 FC42 
0241 FC42 
3242 2 
0243 FC42 
9244 FC44 
2245 FC46 
0246 FC49 
0247 FC4D 
3248 ۶8 
0239 8 
2250 FC4B 
0251 FC4B 
0252 FCAC 
0233 FC4E 
0234 جع‎ 
Gz58 FCAF 


FeSi 


. . . ه‎ c5 9 


AO 


2c 
B9 
10 
Cc? 
DO 
98 
ἂς 


78 
27 
AA 
85 


AS 


FO 
45 
85 
AS 
5D 
95 
BS 
و0‎ 
ΘΟ 


05 
30 


85 


OA 
10 


88 


30 


OE 


03 


=, 
=< 


DO 
OG 


CS 


O1 


i3 


04 
09 


04 


05 


CS 
62 


04 


FC 


FF 


04 


FF 


LINE 


START 


START 1 


START2 


; TEST 


KI 7 PE 


i 


i TEST 


STARTS 


i 


; TEST 


START4 


STARTS 


LDY 415-1 
CLI 
LDA 
BPL 
CMP 
BNE 
TVA 
JMP EX2 


JOBS, Y 
STARTS 
JUMP 

STARTE 


SEI 
AND $1 
TAK 
STA DRIVE 
MOTOR STATUS 


LDA VB 

AND ANDC, X 
BEG STARTS 
EOR VB 

STA VB 

LDA MTRCLK 
ADC DELAY 
STA MTRTM, X 
LDA DRVST: X 
ORA 0 
STA DRVST, X 


MOTOR SPEED 


DRVST, X 
START4 
MTRCNT 
DRVST, X 


LDA 
BMI 
JSR 
LDA 


HEAD STATUS 
ASL A 

BPL QUE 

DEY 


BPL 
BMI 


STARTI 
START 


3 


ہے % ο‏ یہ 


s OF JOBS 


VALID JOB? 
NO 
JUMP CODE? 
NO 


GOTO EXECUTE 
MASK DRIVE NUMBER 


TRANSFER FOR INDEX 
SAVE DRIVE NUMBER 


LOOK AT MOTOR ON 
MOTOR IS ON 


TURN MOTOR ON 


SET TIME FOR 
ACCELERATION DELAY 


SET ACCELERATION BIT 


FULL. SPEED? 
NO, STILL SET 
YES, KEEP MOTOR ON 


HEAD MOVING? 
NO, DO JOB 


SCAN NEXT JOB 


START OVER 


A 
[ 
1 


... PAGE 0010 


LOC 


3 
FOSS 
FCS4 
FOSS 
68 
FCS8 
FC SB 
FC SD 
FC SD 
FCSF 
FCél 
FG&3 
FC&6 
FC68 
FC69 
FC4B 
FC&E 
FC70 
FC72 
FC74 
FC76 
Ες78 
FC7A 
FC7A 
FC7D 
FC7D 
FC7F 
FCSi 
3 
3 
FC83 
3 
3 
FC85 
FCB7 
FC88 
FCSA 
FCeC 


FCac 


FCSE 
FCO 
FC92 


CODE 


58 
AO OE 
84 20 


20 E7 


30 z 


Có 20 
10 F7 
A4 28 
eo E? 
AS 29 


95 06 
AD A3 
95 23 
A9 40 
15 04 
95 04 
B1 19 
99 21 


4C 14 


29 01 


DO DA 


B5 21 
FO OD 


F1 ۹9 
FO o8 


85 29 
AS 20 
85 28 
10 C9 


FC 


FC 


04 


FC 


LINE 


QUE 


QUE 1 


QUE2 


QUES 


QUE4 


i TEST 


QUES 


QUES 


CLI 
LDY 
STY 


Bri 


DEC 
BEL 
LDY 
JSR 
LDA 
SEI 
STA 
LDA 
STA 
LDA 
ORA 
STA 
LDA 
STA 


MP 
AND 


CMP 
BNE 


#15—-1 
JOBNUM 


SET JOB 
QUES 


JOBNUM 
QUE1 

MXT JOB 
SETJB1 
NXTRK 


STEPS, X 


STPTRK 


STPCNT, X 


#540 


DRVST, X 
DRVST,X 
(HDRPT), Y 
DRVTRMA, X 


START 


#1 
DRIVE 
GUE2 


i 


i 


ῃ 
? 


; 


; 


# OF JØBS 


GET DISTANCE TO DESIRED TRACK 


STORE STEPS TO NEW TRACK 
SET STEPS PER TRACK 


SET STEPPING BIT 


STORE HEAD POSITION 


BACK TO START 


TEST IF SAME DRIVE 
NOT SAME DRIVE 


IF ON RIGHT TRACK 


LDA 
BEG 
SEC 
SBC 
BEG 


STA 
LDA 
STA 
BPL 


DRVTRK, X 


GOTU 


(HDRPT),Y 


GOTU 


NXTRK 


JOBNUM 


NXTJODB 
GUEZ 


} 


i 


ON RIGHT TRACK 


SAVE FOR LATER USE 


LOC 


FC94 
FC94 
FOSS 
66٤ 
FC9A 
FCFA 
FC9D 
FCYE 
FCAO 
FCAO 
FCAƏ 
FCAS 
FCAS 
FCA7 
FCA9 
FCAB 
FCAD 
FCAF 
FCB1 
FCB3 
FCBS 
FCB7 
FCB9 
0ئ۲‎ 
FCED 


CODE 


Az 
Bi 
85 


DD 
CA 
Bo 


BD 
85 
84 
0۵ 


AS 
29 


oS 


85 
AG 
BS 
30 
AS 


FO 


04 
19 
14 


AF 


FA 


ΤΥ 
16 


OG 
82 


FS 


13 
ea 
13 


C1 
IF 
40 
11 
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04 


04 


LINE 


GOTU 


GOTUI 


GOTU2 


#4 
) T), Y 
TRACK 


TAB3-1, X 


GDTUI‏ د 


TAB1,X 
SECTR 


4 

WORK 
PB 
ΗΦΕΘ 
WORK 
DRIVE 
PB 
DRIVE 
DRVST: X 
QUE3 
JOB 
SBUMPC 
BUMP 


LOAD TRACK NUMBER 


GET NUMBER OF SECTORS 
OM TRACK 


TEMP SPACE 


ADD DRIVE 
STORE BIT DENSITY 


MOTOR STILL ACCELERATING 


RESTORE HEAD TO TRACK 1 


i ZXECUTE. ... 
° JINER LOC 
: 3327 FCBF 

1328  FCBF 
0229 FCBF 
1330 FCEF 
1231  FCBF 
5532 FCBF 
2233 FCC] 
7334 FCC3 
“3335 ۵م‎ 
0334 ك۵‎ 

(2327  FCC8 

~3338 Fcc8 
0339 FCC? 

, 2340 FCCB 

| )341 20 
0342  FCCD 


. 4 


C9 
FO 
40 
AS 
18 
85 


oC 


60 


7 
- 


27 FE 


05 
18 


17 00 


LINE 
i MODE 110 
; EXECUTE 
EXE 
CMP 
BEG 
JMP 
EX | 
LDA 
EX2 
CLC 
ADC 
STA 
EX3 
JMP 


HEXEC 
EX 
SEEK 
JOBNUM 
K>BUFS 
BUFPT+1 


(BUFPT) 


; G0 EXECUTE 


r 


C 3UMP...... PAGE 0013 


< .INE# LOC CODE LINE 
, )844 FCDO i 
' (1345  FCDO ; MODE 100 (C) 
0346  FCDO ; BUMP (RESTORE) 
1347 FCDO 
^ 3348  FCDO BUMP 
70349  FCDO 78 SEI 
0350 FCD1 A? 40 LDA 0 
- 23851 FCD3 95 04 STA 08۷9۲۰ X 
.J352 FCD5 Ag οι LDA #1 
0353 FCD7 95 21 ` STA DRVTRK,X ; SET TRACK TO I 
. 2854 FCD? BD D7 FF LDA ANDD, X 
Γ 555 FCDC 05 40 ORA VB 
0354 FCDE 85 40 STA VB ; SET HEAD TO PHASE Å 
3357 FCEO A9 ۸ LDA &90 
[ 3858 FCE2 95 06 STA STEPS, X ; DO 90 STEPS 


' 02359 FCE4 4C 6C ΕΕ JMP DONE ; FINISH UP 


ET IIB: ον 
Γ 
| .INES LOC 
r 
2361 7-7 
0362 FCE7 
۔‎ 1353 FCE? 
3364 FCES 
| 28365  FCEC 
3566  FCED 
: 3367 FCEF 
| 5388  FCF1 
0389 FCF2 
r 3370 3 
9371 4 
0372 ۶ 
. 92873 FCF7 
| 0374 FCF? 
1.0375 FCFB 
2376 FCFC 
| 9377  FCFD 
9378 0 
0379  FCFF 
3580  FDO1 
| 3251  FDO3 
0382 FD03 
. 2883 5 
5384 FDO7 
0385 ΕΠΟΣ 
5386 FDOA 
¦ 9337  FDOC 
(03288  FDOE 
0389 ۵ 
{3350 FD12 
1 391  FD12 
0392 FD14 
. 2393 6 
0374 8 
- 0395 ΕΡΙΑ 
0396 ۶ 
* 9397 FD1D 
s 03898 7۶ 
0399 FD21 
0400 FD23 
5401  FD25 
"0402 FD27 
52403 FD29 
0404 FD2B 
-0405  FD2D 
0406 ΕΠΕ 
0467  FD31 
n408 FDEZ 
0409 4 
0410 FD35 
.0411 FD37 
` 0412 FD39 
0413  FD3B 
6414  FD3C 


- 0415 


FD3E 
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CODE 


5 


20 


03 


78 
iF 


21 
19 
02 


04 


FC 


LINE 


80 


SETJBÍ 


۲] 


FSNUM1 


FSNUN2 


FSNUNJ 


FSNUMA 


LDY 


LDA 
PHA 
AND 
STA 
TYA 
ASL 
ASL 
ASL 
ADC 
STA 
LDY 
PLA 
RTS 


LDY 
LDA 
STA 


LDA 
STA 
LDA 
CLC 
ADC 
CMP 
BCC 
LDA 


STA 
LDX 
STX 
LDX 


JSR 
BPL 
STA 
AND 
CMP 
BNE 
LDA 
CMP 
BNE 
LDA 
CMP 
BEG 
INY 
SEG 
LDA 
SBC 
BPL 
CLC 
ADC 


JOBNUM 
JOBS, Y 


#5786 
JOB 


ñ 

A 

A 
#<CHDRS 
HDRPT 
#2 : 


#3 
(HDRPT); Y 
STAB+3 


H$7F 
CSECT 
STAB+3 


#2 
SECTR 
۲] 
#0 


NEXTS 
815-1 
JOBNUM 
ΕΦΕΕ 


SETJOD 
FSNUMS i 
WORK 

#1 

DRIVE 
FSNUMS i 
(HDRPTOÓ,Y 
TRACK 
FSNUMS 

JOB 

HEXEC 
FSNUMS 


NO JOB 


NOT THE RIGHT DRIVE 


(HDRPT)S Y 
NEXTS 
FSNUM4 


SECTR 


3431 


0432 


3ء 


2424 
0435 
2436 


ο... 


EQ 


coo 


. بپ‎ © a., 


FDE 
FD40 
FD42 
FD44 
FD46 
FD47 
FD49 
ص۹‎ 
FD48 
FD4D 
FD4F 
FDSO 
FDS2 
FD55 
FDSS 
FDS8 
6۵ 
FDSD 
FDSD 
FDSF 
FDSF 
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CODE 


Cs 


EO 
85 
AS 
AA 
69 
85 


Có 
10 
84 
10 
AC 


BE 
86 
20 


AS 


OD 
Ον 
OD 


2o 


05 
18 


20 
CB 


Q3 
14 


AO 
20 


E7 


IE 


FC 


04 


FC 


LINE 


FSNUMS 


۴۸۷6 


FSNUM7 


CMP 
BCS 
STA 
LDA 
TAX 
ADC 
STA 


DEG 
BPL 
TXA 
BPL 
JMP 


STX 
STX 
JSR 


LDA 


. END 


CSECT 
FSNUMS 
CSECT 
JOSNUM 


#p2>BUFS 
BUFPT+1 


JOBNUM 
FSNUM3 


FSNUMS 
START 


AGTJOB 
JOBNUM 
SET JOB 


JOB 


.LIB RAW 


^EAD/WRITE 


4 


på 


| 


M 


| SINE# LOC 
#433  FD5F 
0459 FD5E 
, 3440  FDSF 
3441 FDSF 
3445 ۴91 
“442 3 
30444  FD&3 
9445  FD66 
0445 FDG 
14447 FD68 
2448  FD69 
0449 FD69 
)450  FD6B 
451 FDSD 
0452 FD6E 
9453 0 
9454  FD7O 
0455 FD72 
0454  FD74 
J457  FD76 
2458  FD76 
0459 FD78 
, 9460  FD7A 
3461  FD7C 
9462  FD7C 
9463 7۶ 
"5454  FD81 
0465  FDS83 
` 02566  FD86 
20467 FDBS 
3468 9 
- 04697 718 
| 3470 728 
2471 28 
“0472 8 
0473 FDSB 
5474 FD8B - 
—475 ΕΌΘΕ 
0474 088م‎ 
2477  FD91 
5478  FD9?1 
` 0479  FD93 
5480 5 
9481  FD95 
0482  FD97 
0482  FD99 
5424 FD99 
9485 FDA 


08 


FD9A 


ee * œ 


AS 
91 


DO 


50 
AS 
85 


A? 
24 


DO 


20 
CS 
DO 
40 


جم 


4C 


A? 
DO 


۵7 


. PAGE 4 


00 
37 


8B 
FE 
41 
17 
Fó 
FE 
41 
29 
10 
4D 
ος 
06 
25 
03 
ec 


05 


77 


c8 


07 
04 


04 
10 


FD 


FF 


FE 


FE 


FE 


FE 


LINE 


i MODE- 000 (8) 


; READ 


READ CMP 
BNE 


JSR 


L100 BYC 
LLY 


LDA 
STA 
INY 
BNE 


L101 BVC 
LDA 
STA 


LDA 
BIT 
BNE 


JSR 
CMP 
BNE 
JMP 


CSIDB LDA 
ERR JMP 


8Ο 
WRITE 


DSTRT 


L100 


DIN 
(BUFPT)Y 


L100 


L101 
DiN 
CHKSUM 


#410 
IFR 
ERR 


CHKBLK 
CHKSUM 
CSIDB 
DONE 


#5 
ERROR 


i START READING DATA 


JSR 


CMP 
BEG 


LDA 
BNE 


L102. RTS 


SRCH 


SYNC 


#7 
L102 


#4 
L104 


. END 
.LIP CMDS 


i 


; 


} 


} 


} 


} 


i 


E 


) 


; 


; 


; 


SET STATUS 


START READING DATA 


NO TIME FOR JSR 
CLEAR BYTE READY (V) 


LOAD BYTE 
STORE IN BUFFER 


LOOP FOR 256 BYTES 


WAIT FOR CKSUM 


TEST FOR DECODE ERROR 


DECODE FLAG IS SET 


CMP THE CHECK SUM 


DATA BLOCK CS ERROR 


SEARCH FOR CORRECT HEADER 


; WAIT FOR START OF DATA 


i 


START OF DATA 


; YES 


; DISPLAY ERROR 


^QMMANDS... 
: 
i; LINE# LOC 
; 
19488 4٨ 
(3489 ان‎ 
490 ΕΡΦΑ 
"3491  FDYA 
i 0492 . 624 
^493 FDSC 
r 1494 0م‎ 
12495  FD9?E 
' 0496  FDA1 
, 457  FDA3 
-J498 3 
| 2499  FDAS 
J500  FDA7 
[| 1501 FDA? 
i 2502 FDA? 
5503 6 
r 29504  FDAC 
| 2505  FDAF 
| 0506 FDAF 
. 2507 FDB2 
چ0ود۔!‎ 523 
: 05029 FDBS 
(510 6 
| 0511 7 
| 0512 FDB? 
513 FDB? 
r 2514 ۴8 
9515 8 
0516 ΕΡΡΕ 
3517 7 
2518 FDC1 
. 0519 4 
3520  FDC7 
3521  FDC7 
5522 FDC? 
0523 FDCA 
: 2524 FDCA 
9525 FDCC 
- 0526 FDCC 
20527 FDCE 
3528 0 


. 0529 


FDDO 


a ` a 


C9 
DO 


20 
85 


AS 
29 
FO 


4C 


AE 
CA 


38 
CA 
DO 


A9 
85 
A? 
A2 
20 
20 


50 
BS 


85 


A? 
85 


AQ 


10 
69 


06 
25 


82 
08 
O3 
Al 
77 
9D 


FE 


FA 
DE 
AC 
DC 
FF 
FD 
FD 


FE 


4C 


07 


00 


FF 


FE 


FE 


04 


FE 
FE 


. LINE 


MODE OO1 
WRITE 


CMP 
BNE 


JSR 
STA 


LDA 
AND 
BE.G 


JMP 


JSR 


LDX 
DEX 
BVC 
CLV 
DEX 
BNE 


LDA 
STA 
LDA 
LDX 
JOR 
JSR 


BYC 
CLV 


STA 


LDA 
STA 


LDY 


(9) 
#10 
VRFY 


CHABLK 
CHKSUM 


PB 
#08 
L198 
ERROR 
SRCH 
GAP 1 


L200 


L200 
#WRTSYN 
PCR 
HWRTDAT 
ΕΦΕΕ 
pUT2 
DUT2 . 


L202 


PCR 


17 
DOUT 


#0 


; 


} 


; 


; 


} 


E 


i 


j 


i 


j 


ISOLATE WRITE PROTECT BIT 
BRANCH IF OK 


GET CORRECT BLOCK 
LOAD WAIT GAP 1 


WAIT X CHARS 


WRITE SYNC MODE 


LOAD FILL CODE 
WRITE 4 SYNC CHARS OUT 
1 ST 


4 TH 


STORE NORMAL CODE MODE 


2ND SYNC 


, COMMANDS. . . 
i -INE# LOC 
(2931 FDD2 
0522 FDD2 
, 182 FDD4 
1534 FDDS 
i 5525  FDD5 
2536  FDD7 
' 3887 FDD? 
3528 77 
0529 FDD? 
340 64 
i-2541  FDDC 
"0542 46 
, 2543  FDDE 
| 2844 FDEO 
| 3545 ۹۱1 
2544 3 
| 9547 FDES 
| 9548 8 
0549 FDEB 
r 2550 FDED 
; 3551  FDED 
' 0552 FDEF 
. 2553 FDFO 
3554  FDFO 
555 2 
0556 2 
' 2557  FDF4 
00958. F DE 7 
C559  FDF8 
2550  FDFA 
3541 - ۵۸۵ 
0542 ΕΡΓΟ 
2563  FDFF 
05464  FEO1 


- 0565 


FEG4 


50 


Bi 
85 


CS 
DO 


AS 
20 
BS 
86 
20 
لیم‎ 
20 


A? 


20 
B8 


89 


42 
20 


DO 
AS 
49 


99 
46 


FE 


17 
80 


Fé 


25 


FE 
go 
00 
00 
FC 


FE 


4C 


28 
F7 


FA 


20 
o3 
30 
03 
FD 


FF 


FF 


FE 


04 


04 
FC 


LINE 


; WRITE BLOCK 


BYC 
CLV 


L203 


LDA 
STA 


INY 
BNZ 


LDX 
BVC 
CLV 
SIK 
JSR 
LDX 
JSR 
LDA 


BVG 
CLV 


STA 


LDX 
JSR 
DEX 
BNE 


LDY 
LDA 
EOR 
STA 
JMP 


L203 


(BUFPT), Y 


DOIT 


L203 


CHKSUM 
L204 


DOUT 
DUT 
#00 
OUT 
#$FC 


L442 


PCR 


#40 
BYTE 


L205 


JOBNUM 
JOBS, Y 
#530 

JOBS, Y 
FSNUM 


; LOOP FOR WHOLE BLOCK 


; WRITE OUT CKSUM 


; SEND A BYTE 


; SEND A BYTE 
i NORMAL, READ MODE 


; TEST IF BYTE PRESENT 


; CHANGE TO SEND SYNC 


; LOAD OLD WRITE JOB 
i MAKE INTO VERIFY 


; FIX SECTOR# FOR NEXT JOB 


^OMMANDS. .. 
|. ines LOC 
| 3547 7 
tosg FEO7 
1559  FEO7 
[ 3570  FEO7 
| 2571 FEQ? 
572  FEOB 
j573  FEOE 
1574  FEOE 
2575  FE10 
3576  FE11 
2577 FELL 
l'os78 FE13 
5579 ΕΕΙ5 
| 5580  FE17 
70581 -. 7 
0582 FE18 
°" 2583 ΕΕΙΑ 
| 0584 FEID 
0585 حم چم‎ 
, 2586  FE21 


FELT 


= a s 


PAGE 0019 


CODE 


σσ 


20 


50 
BS 


AS 
Di 
DO 


C8 
4C 


A9 
DO 


20 
16 
ΒΒ 


FE 


41 
17 
05 


F4 
70 
07 
53 


FD 


FD 


LINE 


; MODE- O10 (A) 


; MERIFY 
VRFY CMP 
BNE 
JSR 


BVC 
CLV 


L DA 
CMP 
BNE 


INY 
BNE 
JMP 
LDA 
BNE 


L212 


; 


REZO 
SECSEK 
DSTRT 


DIN 


¿BUFPT), Y 


L212 


L210 
L101 
#7 

ERRZ 


END READING DATA‏ رز 


i SECTOR SEEK 
i START READING DATA 


; NO TIME FOR JSR 


i GET BYTE 
; COMPARE TO CONTENTS OF BUFFE 
i VERIFY ERROR 


; 256 BYTES 
; COMPARE CASUM BYTES 
i MERIFY ERROR 


| "OMMANDS 


LINER LOC 


å 
3589 
0590 
EG 1 
592 
2593 
^54 
S575 


— 


FE21 
FE21 
FEZI 
FERI 
لے ج۴‎ 1 


r Ἐς 
FE24 


© < ج < وف‎ s 


CODE 


20 77 FE 
ας ἐς FE 


PAGE 0020 


LINE 


; 
i MODE= 
; SECTO 


SECSEK 


O11 (B) XO11 100D 


R SEEK 


JSR SRCH 


JMP DONE 


i 


GET CORRECT BLOCK 


ΑΝΩΏΒΘ.,..... PAGE 00-1‏ اا 


-I.Es LOC CODE LINE 

20777 FED7 ; SEEK TO DETERMINE NEXT SECTOR# 

3598  FE27 j 

JE 32 7 SEEK 

JED 7 j 

2601  FE2 A2 B4 LDX #180 ; READ HEADER 

J4 2 FE29 20 9B FE JSR HEAD i GET BLOCK HEAD 
M 3 FERC ; 

2474  FE2C AO 04 LDY 45-1 

2675 FERE 50 FE L250 BVO L250 

JE & FESO 8 CLV 

236 7 FEQi 45 41 LDA DIN ; GET BYTE 

26098 FE33 99 OE 00 STA STAD, Y ; STORE IN TABLE 
JE 9 FESG 88 DEY 

DE- 0  FE37 10 F5 BPL L250 ; LOOP 

I‏ 75 611د 

206 2 FE3? AO 04 LDY &4 ; CREATE CKSUM 
36 3 FEGB A? OO LDA #0 

36.4 FESD 59 OE 00 L254 EOR STAB, Y 

296'5 FE40 ΕΒ DEY 

DE & FEAL 10 FA BPL L254 

26-7 FE43 i 

3618 FE43 C9 OO CMP #0 

 FE45 DO 28 BNE CSERR ; BRANCH IF ERROR‏ ?9 ید 
FEA47 j‏ 26-0 

2621  FE47 Ab 13 LDX DRIVE ; INDEX BY DRIVES 
DE 2 FEAR AS 10 LDA STAB+2 . 
X 3 FE4B 95 21 STA DRVTRH, X ; UPDATE CORRECT TRACKS 
06.24 | FEAD i 

06^5 FE4D 5 iF LDA JOB ; LOAD JOB TYPE 
DE 6 ΕΕΔΕ C9 30 CMP 48930 ٠ ; TEST IF SEEK 
29427 FE51 FO OF BEG 4 ; BRANCH IF YES 
0628 3ج‎ 4 

né 9 FESS AO Ol LDY 1 

5630 FESS j 

06231 FESS Bi 19 L252 LDA (HDRPT),Y . ; LOAD ID 

Dt Ὢ  FE57 DF OE OO CMP STAB, Y ; CHECK IF SAME AS HEADER 
Oc 3 FESA DO 16 BNE L253 ; BRANCH IF MISMATCH 
0434 FESC ; | 
0625 FESC 88 DEY | 

Di tó FESD 10 Fó BPL L252 ; LOOP 

οὲ 17 ΕΕΒΕ i 


D635 ΕΕΒΕ 4C O3 FD JMP FSNUM1 ; DECIDE WHICH SECTORS TO SERVICE 


CDMMANDS...... PAGE 0022 


—INE# LOC CODE LINE 
540 2 ; MODE= 011 (B) 
2441 2 ; SEEK 
^é42 FEGR ; 
i649  FE&2 ESEEK 
3544 FE62 
5545 ۴٣۵ « AO 04 LDY 4 
' ;&646 FEO4 B9 OE 00 L251 LDA 7۷ ; LOAD HEADER 
3647 FE67 91 19 STA (HDRPT),Y ز‎ STORE HEADER 
0548 FE69 88 | DEY 
1649 FEGA 10 F8 DPL L251 ; LOOP FOR WHOLE HEADER 
2550  FE6C j 
| 2651 FE6C A? 01 DONE LDA 1 ; ERROR CODE FOR NO ERROR 
2652 FE&6E 2C .BYTE 2 
19452 FEAF A? O9 CSERR  LDA #9 
2654  FE71 ος . BYTE 2 
0435 FE72 A? OB L253 LDA #11 
| 2886 FE74 4C Al ΕΕ ERR2 «ΜΡ ERROR 
1.3457 FE77 i 


0698 


COMMANDS. . . 
i-.INEs LOC 
' 06359  FE77 
9680 7 

7 661 
6ع 862) ' 
78 02663 

0464 2 
. 2665 FE7D 
2566  FE7E 

9647 FEBO 
 2&68 FESO 

3469  FEB2 
0670 4 

06071 4 
' 25872 ΕΕΘό 
0573 FESS 

0674 ۵8 
, 0575 FESB 
| 2676 2 
' 0477 28 
| 0878 ΕΕΒΕ 
' 0679 FESO 
0680 0 

0481 2 

3682 #4 
-0633 64 

0434  FE96 
. 0805 - 7 
(3426 ووعع‎ 
0487  FE99 

0658  FE9A 

9689 ΕΕΘΑ 
0690 FESA 

0691 FESB 

0592 8ئ‎ 
-0693 FEB 
0594 FESB 

0495 FEYC 
| 0696 FESD 
- 0697 FEOF 


FESF 


. ` © 


AO 
AG 


ol 
88 
10 


AO 


91 


۵4 


A2 


eo 
۵ 


50 
BS 


AS 


DO 


88 
10 


C8 


60 


28 
CA 
DO 


AD 


FB 


04 
19 


eo 
B4 


9B 
04 


FE 


41 


F2 


F4 


21 


02 


PE 


LINE 


i SEARCH FOR SPECIFIC BLOCK 


SRCH 


L410 


4 
L411 


; SEARCH FOR BLOCK HEAD 


HEAD 


LDY 
LDA 
EOR 
DEY 
BPL 


LDY 
STA 


LDY 
LDX 


JSR 
LDY 


BV C 
CLV 
LDA 
CMP 
BNE 


DEY 
BPL 


INY 


RTS 


CLI 
DEX 
BNE 


LDA 


#4—1 
#0 


(HDRPT),Y 
L412 


#4 
(HDRPT), Y 


JOSNUM 
#150 


HEAD 
يسو‎ 


ι 411 


DIN 
(HDRPT),Y 
L410 


L411 


L420 


#2 


`. 


COMPUTE CHECKSUM 


OFFSET FOR CHECKSUM 
STORE CHECKSUM 
SEARCH FOR A SECTOR 


EVERY BYTE IN THE HEADER 
MUST BE IDENTICAL 


COMPARE TO HEADER 
LOOP IF NOT RIGHT BLOCK 
LOOP FOR WHOLE HEADER 


SET Y TO O 


X HAS MAX # OF TRIALS 
TRIALS LEFT 


ERROR CODE 


_ COMMANDS. . . 
f 
| .INES LOC 
1 
07200 FEAL 
Q721 3 
+ 3752 3 
3793 FEAI 
0754  FEA3 
2725 4 
1754  FEA7 
0727 7 
^708  FEA9 
| 2709 FEAB 
5710 FEAE 
0711 0 
+ 9712 FEBO 
2713 FEBS 
0714  FEB3 
2715 FEBS 
| 2716 4 
: 0717 FEBS 
5718 7 
| 2719: 9 7 
' -0720 FEBA 
0721 FEBA 
. 2722 FEBC 
: 5723 FEBD 
0724 ΕΕΟΟ 
| 20725 FECO 
| 9726 FEC3 
10727  FECS 
0728 7 
| 0729 FECS 
-0730 FECS 
` 0731 8 
0732 FECB 
. 0733 FECB 
-0734 8 
0735 8 
| 0736 8 
"0737 8ج‎ 
0738 8 
. 0739  FEC8 
-0740 8 
` 0731 FECS 


A4 
9g 
48 


AS 
Ad 
SD 
99 


63 
44 
DO 


4C 
^g 
94 
4C 


20 
C9 


60 


20 


03 


01 
13 
ος 


ος 


OF 


03 


FD 


3F 


14 


c8 


DA 


04 


04 


FF 


FC 


FC 


FE 


` LINE 
; SEND ERROR CODE 
ERROR 
LDY JODNUM ; LOAD JOB& 
STA JOBS, Y i SEND JOB STATUS 
PHA 
j 
LDA MTRCLK 
LDX DRIVE 
ADC CUTMT 
STA MTRTM, X ; MAKE MOTOR STAY ON LONGER 
JSR SETSRH 
j 
PLA ; LOAD ERROR TYPE 
LSR A ; TEST IF OK EXIT 
BNE L421 ; BRANCH IF NOT 
i 
JMP FSNUM ; LOOP FOR ALL SECTORS 
L 421 LDX 7۳ 
TXS ; PURGE STACK 
JMP START ; GO TO NEXT JOB 
L420 JSR SYNC i GET A BYTE 
CMP ٤8 ; COMPARE TO START GF HEADER 
BNE HEAD 
RTS 
; ERRORS: 
i #1: NO ERROR 
j #2: CAN'T FIND BLOCK HEAD 
i #3: NO SYNC CHARACTER 
i #4: DATA BLOCK NOT PRESENT 
i #5: CHECKSUM ERROR 
i #7: VERIFY ERROR 
i #6: WRITE WITH WRITE PROTECT ON 
i #9: CHECKSUM ERROR IN SEEKED HEADER 
i #10: DATA RAN INTO NEXT HEADER 
i #11: DISK ID MISMATCH 
; #16: DECODING ERROR 


0797 


COMMANDS. .. 
..INESs LOC 
J743 8 
0734 FECS 
, 20745 868 
| 3746  FECB 
. 0747  FEC8 
5748 FECA 
' 39749 FECD 
3750 FEDO 
0731 FEDO 
: 3752 FEDI 
2753 FED3 
0754 FEDS 
. 2755 FEDS 
2756 FED7 
. 9757 FEDA 
9758 FEDC 
' 2739 FEDE 
; 0740 06 
0761 FEE? 
: 3762 4 
| 2763 FEES 
0754 7 
, 2755 FEE? 
| 9756 FEEB 
0767 FEEC 
0768 FEEE 
Γ 9749 FEEE 
1-0770 FEFO 
0771 FEF2 
0772 FEF4 
| 0773 4 
"0774 ΕΕΕό 
| 0775 FEF7 
07768 7 
(0777  FEF7 
0778 FEF7 
0779 FEF? 
--0780 FEFA 
0781 FEFA 
. 0782 FEFC 
0783  FEFD 
= 07834 FEFD 
0735 FEFD 
0786  FFOO 
70787  FFO2 
0758 FFO3 
0789 5 
—0790 FFO6 
0791 FFOS 
0792 FFOG 
6793 ΕΕΟΒ 
0794  FFO9 
0795  FFOB 
0726  FFOC 


FFOE 


a . 


50 
B8 


AS 
60 


20 
50 
88 


60 


1E 
EF 
OF 


DO 


45 


Q3 


CS 
49 


40 
F8 


AS 
40 
E2 
F9 
40 
40 


41 


FE 


41 


00 
FE 


00 


17 


FB 


04 
FF 


04 


04 


FF 


LINE 
i HUNT FOR SYNC CHARACTER 
SYNC 
LDA #30 
STA SYNCS 
SYNC1 JSR SETSRH i GOTO SEARCH MODE 
SET 
LDA **80+80 
STA TIMER i 20 MS LIMIT 
LDA #3 ; ERROR CODE 
DEC SYNCS 
BMI ERROR i > 30 FALSE SYNCS 
L430 BIT TIMER ; TEST IF OVER TIME LIMIT 
BPL ERROR i BRANCH IF OVER 
BIT VB ; TEST IF SYNC PRESENT 
BMI L430 i LOOP UNTIL SYNC 
LDY SYNDLY ; LOAD SYNCDLY 
WATSYN BIT VB i TEST SYNG PRESENT 
BMI SYNC1 i GONE, FIND AGAIN 
DEY 
BNE WATSYN ; 10 US PER LOOP DELAY 
LDA VB ; GOTO READ MODE 
ORA #PLLBIT 
STA V3 
BIT DIN ; RESET VIA LATCHING DATA 
CLYV 
i GET A BYTE 
BYTE BVC BYTE ; TEST IF BYTE PRESENT 
CLV 
LDA DIN ; LOAD BYTE 
RTS 
i BYTE TO BE SENT IS IN X 
OUT2 JSR QUT ; DO 2 QUTS 
OUT BYC OUT i DATA IN 6530 WAS LATCHED 
CLV 
STX BOUT i WRITE NEW BYTE INTO PA 
RTS ۱ 
CHKABLKA LDA #0 i CREATE BLOCK CHKSUM 
TAY 
CHABLIO EOR (BUFPT), Y 
INY 
BNE ء21٤0‎ 
RTS 


COMMANDS. . . 
— IEH LOC 
"3798 7۳۴ 
. 0799  FFOF 
2800  FFOF 
r )BO1  FFOF 
0302 11م‎ 
0893 3 
3834  FF15 
3635 4 
0824  FF16 
2907  FF16 
. 2828  FF16 


, 0839 


FF16 


œ‏ ` ےم 


AS 40 
eo BF 
85 40 
60 


LINE 


; 
7 
, 
i 
i 


SETSRH 


LDA VB 

AND #255-PLLBIT 
STA ۵ 

RTS 


. END 
LIB IRON 


ῃ 
3 


SET PLL INTO SEARCH MODE 


"NTERUPT... 
LINES LOC 
.-9811  FF16 
2812 6ع‎ 
, 813. 7 
0814 58 
. 2815 FFI? 

58156  FF1C 
` 3817 ΕΕΙΕ 
ISIS FF20 
0819 FF22 
. 8264د‎ 
3921  FF26 
' 0822  FF28 
29823 FF28 

1824 ΕΕΘΑ 
. 9825. 6 

)826 FF2D 
r )827 ΕΕΒΕ 
|-0828  FF2F 
“0629 روحم‎ 
. 9830 FF33 
1 39831  FF35 
(9832 م۵٥‎ 

1933  FF3B 
¦ 9834  FF3D 
. 0835  FF3F 
0836 FF42 
r )837 FF42 
9838  FF42 
0939 د2‎ 
. 1830 FF42 
| 0841  FF44 
1.9842 4 

7843 ۵8 
| )844 4٨4 
| C845 ٤جج‎ 
0846  FFAF 
: 3847 FF51 
(9848  FF53 
“0849 3 
, 1850 FF56 
| 29851  FF57 
-0852 FF59 

5833  FF59 

1854 FFS9 
70855 FF59 
0858 FF59 

837 ΕΕΞΒ 
258 FF5D 
0839 ΕΡΕόΟ 

1246 FFé42 
1951  FF64 

5 ه۴ 29842 

27853 7 

1954  FF69 - 


2805 


۴۳۴۵۱ 


00 04 
BF 
09 


OF 
ος 


O1 


O1 
82 


01 


A8 04 
48 04 


A6 04 


O1 
02 
11 
04 
07 


40 
40 


CA FF 


04 


06 
1D 
Al O4 
OF 
Of 


O1 


e 
23 


00 
Ai 04 


LINE 


IRA 
PHA 
TKA 
PHA 
LDA 
STA 
INC 
LDA 
AND 
BNE 
INC 

IRGI 
LDX 
LDA 
PHA 
ORA 

ἶπας  — 
STA 
LDA 
AND 
CMP 
STA 
BEG 
LDA 
STA 


j 


TICK 
MITAT 
CLOCK 
CLOCK 
#SOF 
IRQI 
MTRCLK 


#2-1 
PB 

; SAVE PB 
#1 
PB ; SELECT DRIVE 
PB 
48 j 
LUPT, X ; 
LWPT, X 
IRQ3 j 
11 
WP SU, X i 


MASK WRITE PROTECT 
CHECK LAST WRITE PROTECT 


NO CHANGE 


SET SWITCH 


i SERVICE MOTOR 


IRG3 
LDA 
CMP 
BNE 
ASL 
BCS 
LDA 
ORA 
STA 

IRQ4 
JSR 
CL.C 
ROR 


) 


MTRCLK 
MTRTM, X 
IRQS 
DRVST, X 
IRQ4 

ANDC, X 

VB 

VB i TURN MOTOR OFF 


MTRCNT i KEEP MOTOR RUNNING 


DRVST,X 


; SERVICE STEPPER 


IRQS 
LDA 
BNE 
LDA 
BEG 
STA 
PHA 
LDA 
STA 
LDA 
STA 


STEPS, X 
IRQ7 
PHASE, X 
IROG j 
STEPS, X 


NO PHASE OFFSET 


$i 

STPCNT, X ; 
0 

PHASE, X 


QUARTER TRACK 


TNTERUPT... 
| LINES LOC 
| 9856 ΕΕΔΕ 
| 0857 FFOF 
7868 FF71 
[ 08969  FF71 
|! 2279 3 

971  FF75 
- 1872 ج٦‎ 
| 9873 FF7A 

0874 FF7A 

1575  FF7B 
i 2574 FF7D 
t 5877  FF7D 

797 FF7D 
: 0879 FF7D 
5830  FF7F 

nest ΕΕΘΒΙ 
- 882  FF84 
|-2883  FF86 
0804 8 
, :805 ΕΕΘΘ 
i J@86 ۵۸ 
' 2887  FF8D 

19988 ΕΕΒΕ 
f 5889  FF91 
| 2890 FF94 

0821 4 
r 3892 ۵م‎ 
;-9893  FF94 
"0894 4 

1895  FF96 

)896 8 
-5897  FF9B 

^898 ΕΕΘΌ 
f 9899  FF9F 
19900  FF9F 

O901 0 
© 3902 4 
0903 FFAS 
—0904 FFAS 

1905 FFAS 
3906 FFAB 
_ 0 07  FFAD 

5908  FFAF 

1909 FFB2 
0910 FFB4 

0911 64 

1912 FFBS 
J913 FFBA 

0914 FFBA 

1915 FFER 

Fis  FFBD 

291 FFCO 

FFCO‏ عم 

‘S19 3 


FFC4 


œ‏ ء ې 


68 
DO 


BS 
29 
75 
4c 


OA 
BO 


Dé 


AD 
95 
Dé 


AS 
3D 


FD 
4C 


OG 
04 
BF 


04 
BA 


17 


23 
A3 
23 
06 


40 
D7 


D3 
AB 


ed 
0 
A3 
06 


40 
D7 


D3 
D7 
40 
D1 
08 


82 
FE 


~ 


i 


er 


AB 


FF 


04 


FF 


FF 


04 


FF 
FF 


FF 


FF 


FF 


04 


LINE 


IRQS 


IRQ7 


; STEP 


IR7 


; STEP 


IRQS 


IRB 


IRGiO 


11 


iRGiz 


PLA 
BNE 


LDA 
AND 
STA 
JMP 


ASL. 
ECS 


QUT 
DEC 
BNE 
LDA 
STA 
DEC 


LDA 
AND 
SEG 
SBC 
JMP 


IRG7 ; DO THE STEP 


DRVST, X ; DN TRACK 
HEBF 

DRVST, X i 
IRG11 i 


CLEAR STEPPING FLAG. 
CHECK NEXT STEPPER 


OzQUT,. 
STEP IN 


A i 1=IN 


IRGS ; 


CODE 


STPCNT, X 
IR7 
STPTRK 
STPCNT, X 


STEPS, X 


VB 
ANDD, X 


AND3, X 
IRG10 


IN CODE 


DEC 
BNE 
LDA 
STA 
INC 


LDA 
AND 
CL.C 
ADC 


AND 
STA 
LDA 
AND 
DRA 
STA 
LDA 
AND 


DEX 
BMI 
JMP 


LSA 
PLA 
STA 


STPCNT, X 
IRB 
STPTRA 
STPCNT, X 
STEPS, X 


VB 
ANDD, X 


ANDB, X 


ANDD, X 

COW 

VB 

ANDA, X 

COW 

VB ; 
PB 

HEFE i 


WRITE NEW STEPPER STATE 
DRIVE ο 

IRQi2 

IRG2 

CFLG2 


PB ; RESTORE DRIVE 


."NTERUPT. .. 
. 
LINES LOC 
|—13'921 FFCS 
' 0922 FFC7 
, :923 8 
. 2984 9م‎ 
: 2925 ۵ 
9926 FFCA 
1927  FFCC 
‘3928 ΕΕΟΕ 
0929 FFDO 
. 9930 FFD! 
12931 FFD1 
' 2932 FFD1 
, 7733 FFD1 
| 233 FFD2 
5934  FFD3 
934 FFD4 
` 3935 FFDS 
3935 06ع‎ 
0936 7 
1936 08 
ہوجر_!‎ FFD? 
‘0938 FFD9 


دع . 


01 
Oz 
02 


LINE 


MTRCNT 


ANDA 
ANDB 
ANDC 


ANDD 


PLA 
TAX 
PLA 
RTI 


LDA 
STA 
DEC 
RTS 


MTRCLK 
MTRTM, X 
MTRTM, X 


.BYTE 4F3, $FC 
. BYTE $04, $01 
. BYTE $20, $10 

Soe ea sere 
. BYTE 806, $03 


. END 
.LIB VECTORS 


VECTORS. ... 
—INES LOC 
(1.0940 FFD? 
| 2941 FFD? 

3942 FFD? 
3943 FFD? 
5944  FFFC 

0945 FFFE 


04 FC 
16 FF 


LINE 


; RESET AND INTERRUPT VECTORS 


x=%FFFC 
. WORD RESET 
. WORD IRG 


ZND......PAGE CO31 - 


. .INE# LOC CODE LINE 
—2947 OOOO . END 
^ 2948 0000 . END 


` 2۸8088 = 0000 


“SYMBOL TABLE 


. SYMBOL VALUE 


— AGR 0045 ACTJOB O4AO ANDA FFD1 ANDB FFD3 
'  ANDC FFDS ANDD FFD7 BI 0026 BUFPT 0017 
BUFS 0500 BUMP FCDO BUMPC 0040 BYTE FEF7 

ο CFL. G2 O4AB CHKB10 FFO? CHKBLK FFO6 6۷۷ 0029 
CLOCK 0000 CNT OO1E COW 0008 CSECT OOOD 
CSERR FEOF CSIDB FD86 CUTMT 0402 DDRB 0083 

' DELAY 0401 DIN 0041 DONE FESC DONE I FCO2 
` DOUT 0080 DRIVE 0013 DRVST 0004 DRVTRK 0021 
| 7ھ‎ οσους DSTRT FD&B DTRCK 0008 EQUT 0081 
ERR 6)8 ERRZ FE74 ERROR FEA1 ESEEK FER 
EX FCCS EX2 FCCƏ EX3 FCCD EXE FCBF 
EXEC 0060 FLG 133B FLG2 0027 FSNUM FCFD 
FSNUM1 FDOS FSNUM2 FD12 FSNUM3 ΕΡΙΑ FSNUM4 FD3E 
FSNUMS FD4B ۴6 FDSS FSNUM7 FDSD FTNUM . 0018 
GAP 1 0490 GAP2 049E GOTU FC94 GOTU1 FC9A 
GOTU2 FCAO HDRPT 0019 HDRS 0421 HEAD FE9B 
IER ΟΟ4Ε IFR 004D INIT 0500 IP 0010 
IR7 FF88 IRS FF9F IRQ FF16 IRQ1 . FF28 
IRG10 FFAS IRG11 FFBA 16912 FFCO IRG2 FF2F 
IRG3 FFA2 IRG4 FFS3 IRGS FF59 IRQS FF71 

. IRG7 FF7A IRGS م٣‎ 4 JOB OO1F JOBNUM 0020 
JOBS 0403 JUMP OODO L100 ۴064 L101 FD70 
L102 099 L104 FDA9 L198 FDAC L200 FDB3 
L202 FDC7 L203 FDD2 L204 FDDE L205 FDF4 

: L210 FEOE L212 FEID L250 FE2E L251 FE64 
L252 FESS L253 FE72 L254 FESD L410 FE88 
L411 FESD L412 FE7B L420 FECO L421 FEDA 
L430 FEDC L442 FDED LWP T 04A8 MITA 0080 
MITAT OOS8F MTRCLK 0001 MTRCNT FFCA MTRTM . 0002 

, NEXTS 0019 NSIDES O4AC - NXTJOB 0028 NXTRK 0029 
'.. NZONES 0444 OUT FFOO OUT2 FEFD PB 0062 
— PBI O4AA PCR 0040 PHASE O44^1 PLLBIT 0040 
GUE FCS3 QUE 1 FOSS GUEZ FCSD QUES FC7A 
QUE4 FC7D QUES FCB3 QUES εσθς READ FDSF 

. RESET 4 RESET1 FCO& RESET2 FCO9 SECSEK FEZI 
SECTR 0016 SEEK FE27 SETJB1 FCE9 SETJOB FCE7 
SETSRH FFOF SAIP2 o02C SPDVAR O4AD SRCH FE77 

- STAB OOOE START FC14 STARTI ۳٢۸۵ STARTE FC24 
STARTS FC 42 STARTA  FC4B STARTS FCE STARTI FCOO 
8315 0006 STPCNT 0023 STP TREK 0445 SYNG FECES 
SYNC! FECD SYNCS ΟΦΕΞ SYNDLY O4A5 ۲ 45ئ0‎ 
TIL 0044 TILL 0044 TAB! 0479 TALS (000 
TICK 0400 TIMER 0043 TRACK 0014 UNUSED O4 AE 


VB 0040 VDDRB 0042 VERNUM O49F VIAA 0040 


 3YMBOL TABLE 


4 


^YMBOL VALUE 
Γ VRFY FEO7 WATSYN FEE7 WORK 0009 WP SW 0446 


“WRITE | FD9A 8۷٣۲٣۵٣۰ OODC WRTSYN | OODE 
END OF ASSEMBLY کر‎ soos : 


MASTER. .....- PAGE 0001 


LINES LOC CODE LINE 

0001 0 .LIB DOS 

0003 0000 ور بي لد لدد دې په ېې ې ډنډ ر‎ HF مې له لب يږې‎ dt dt dt dt ο dt HE | 
0004 0000 ز‎ Ἔ +; 
0005  GOOO i* 8050 DUAL FLOPPY 45; 
00646 0000 it FILE CONTOLLER (6502) *j 
0007 0000 ; * DISK OPERATING SYSTEM ¥ j 
0008 0000 j ἃ VERSION 2.9 *j 
0009 0000 ; * RELEASED APRIL OS, 1989 3i 
οοιο  OOOO Pd MOS 2364 ROMS #9701482 3 i 
0011 OOOO 1 * ~01: -02 85} 
0012 400 Pd 3; 
0013 0 i Å RE-RELEASED XXXX XX, 1980 3j 
0014 0000 i ἃ MOS 2364 ROMS #701482 *; 
0015 0000 Pd —Q23, -04 45; 
0014 ΟΟΟΟ i* 45; 
0017 OOOO ;* | COPYRIGHT 1980 3j 
0018 OOOO i جو‎ COMMODORE BUSINESS MACHINES %; 
0017 GOGO j ¥ 85; 
0020 0000 ; * *; 


HER HES ;‏ چو جو و چو جو چو چو چو چو GR‏ مد جو چو جو چھ چھ چو چو جو جو چو جو ہہ ہو جو ہی چر جو یو ہر جو ہو 0000 0021 


MASTER. ....- PAGE 0002 


LINER LOC CODE LINE 

oo23 0000 i 1. DOS 
0024 0000 ; 2. EQUATE 
0025 0000 ; 3. I/UDEF 
0026 0000 ; 4. RAMVAR 
0027 0000 i 5. ROM 
0028 0000 ; ὁ. PARSEX 
oo29 0000 ; 7. SETDRV 
0030 0000 ; 8. AUTOIT 
0031 0000 ; 9. LOOKUP 
0032 0000 ; 10. TRNSFR 
0033 0000 ; 11. SCRTCH 
0034 0000 ; 12. DUPLCT 
0035 0000 ; 13. COPYSETUP 
0036 0000 ; 14. COPYALL 
0037 0000 ; 15. RENAME 
0038 0000 ; 16. 14 
0037 0000 ; 17. BLOCK 
0040 0000 ; 18. FNDREL 
0041 060 ; 19. TST2 
0042 0000 i 2 TST3 
0043 0 ; ei. TST4 
0044 0000 ; 22. JOBS 
0045 0000 ; 23. ADDFIL 
0046 0000 ; 24. EROM 
0047 0009 ; 25. OPEN 
0048 0000 ; 26. CLOSE 
0049 0000 ; 27. DPGHNL 
0050 . 0000 ; 28. TSTFLG 
0051 0000 ; 29. TSUTIL 
0052 0000 ; 30. SSUTIL 
0053 0000 ; 31. SSTEST 
0054 0000 ; 32. GETACT 
0055 0000 ; 33. RELI 
0054 0000 ; 34. REL2 
0057 0000 ; 35. REL3 
0058 0000 ; 36. REL4 
0059 0000 ; 37. SSEND 
0060 0000 ; 38. RECORD 
0061 0 ; 39. NULBUF 
0062 0000 ; 40. ADDREL 
0063 0000 ; 41. NEWSS 
0064 0000 ; 42. ERPROC 
0065 0000 ; 43. ۴٧7 
0046 0000 ; 44. IDLE 
0067 0000 ; 45. IEEE 
0048 0000 ; 45. LSTDIR 
0069 0000 ; 47. VERDIR 
0070 0000 ; 48. NEW 
0071 0000 ; 49. MAP 
0072 0000 y 50. FRETS 
0073 0000 ; 51. TSTFND 
0074 0000 ; 52. ROMTBL 
0075 0000 ; 53. VECTOR 
0076 0000 ; 54. ۷۲ 


PAGE 0003 


PE 


LINES LOG CODE 


0078 0000 
0079 0000 


LINE 


. END 
.LIB EQUATE 


EQUATE. ..... 
LINE# LOC 
0081 0000 
0082 0 
0083 0000 
0084 0000 
0085 0000 
0086 0000 
0087 0000 
0088 0000 
0089 0000 
0090 0000 
0091 0000 
0092 0000 
0093 0000 
0094 0000 
0095 0000 
0096 0 
0097 0000 
OO98 0000 
0099 0000 
0100 0000 
0101 0000 
0102 0000 
0103 0000 
0104 0000 
0105 0000 
0105 0000 
0107 0000 
0108 0000 
0109 0000 
0110 0000 
0111 0000 
0112 0000 
0113 0000 
0114 0000 
0115 0000 
0116 0000 
0117 0000 
0118 0000 
0119 0000 
0120 0000 
0121 0000 
0122 0000 
0123 0000 
0124 0000 
0125 0000 
0126 0000 
0127 0000 
128 0000 
0190 0000 
0131 0000 
0132 0000 
0133 0000 
0134 0000 


0135 


0000 


PAGE 0004 - 


LINE 

j 3E پډ‎ HE AE dRdE dE GE dE 3E JE 3E JE 3E 3E 3E جد‎ JE چو جد‎ 4E 3E جو‎ EIE SER چو‎ 

;* EQUATES 

کا نې جو ې kakak ki‏ وو چو kak‏ چو جو جو ېي Pre adr sleden or‏ 

ROM =$C000 

LRF =$80 

DYFILE =%40 

OVRFLO =$20 

NSSL =6 

SSIOFF =4+NSSL+NSSL 

NSSP =120 

LØTRK =4 

HITRK =LOTRK+1 

MXCHNS =8 

ID =$ 1000 

MAXSA =18 

VERERR =7 

CR =$0D i CARRIAGE RETURN 

BFCNT =12 

BAMJOB= BFCNT 

BAMO =$4100 

BAMI =$4200 

CBPTR =BAMJOB+BAMJOB+4 

ERRCHN =MXCHNS-1 

ERRSA =16 

CMDCHN =MXCHNS-2 

LXINT =$3F 

CMDSA =15 

APMODE =2 N 

MDMODE =3 

RDMODE =0 

WTMODE =1 

RELTYP =4 

DIRTYP =7 

SEQTYP =1 

PRGTYP =2 

USRTYP =3 

TYPMSK =7 

IRSA =17 

IWSA =18 

108050 =%7 

ID2040 -$F 

1102030 =%64 

DOSVER == ; DOS VERSION 

FM8050 =$43 ; 8050 FORMAT VERSION 

FM2040 =%41 ; 2040 FORMAT VERSION 

Fr2030 =$42 ; 2030 FORMAT VERSION 
; CONTROLLER JOB TYPES 

READ -550 


WRITE  z$90 
WVERFY ΞΦΑΟ 
SEEK ΞΦΒΟ 
SECSEK =SEEK+8 


EQUATE 


LINER 


0136 
0137 
0138 


0140 
0141 
0142 
0143 
0144 


0145 
0146 


EE. 


LOC 


0000 
0000 
OOOO 


0000 
0000 
0060 
0000 
0000 


0000 
0000 


PAGE 0005 


LINE 


BUMP 
JUMPC 
EXEC 


MXFILS 
CMDIND 
DIRLEN 
NBSIZ 

CMDLEN 


=€C0 
=$DO 
ΞΦΕΟ 


=D 

=30 
=24 
=27 
=58 


. LIB I/ODEF 


; MAX # FILENAMES IN STRING 
; CMD BUFFER INDEX (#2) 

i DIRECTORY LENGTH USED 

; NAMBUF TEXT SIZE 


1/0٤٤ PAGE 0006 


LINES LOC CODE LINE 

06148 0000 ` σ.σ; τα ΣΣΔ; 

0147  OOO0 P* I/O DEFINITIONS κ 

چو ې چھ RE HE TEE‏ جو جو جو جو ډاډ جو چو جو جو جد جد جد جد چو چو ΒΞ‏ چو ہے 3E‏ چو چو از  OOOO‏ 0150 

0151 0000 j I 

0152 0000 UN SN =$3F ; IEEE UNLISTEN COMMAND 
0153 0000 NOTRDY =%0 i NOT READY 

0154 0 TALKER 5480 ; IEEE TALKER FLAG 
0155 0000 LISNER =I i IEEE LISTENER FLAG 
0156 0000 EQIOUT =$80 ; TALK WITH EOI 
0157 0000 EOISND 88 ; NOT(EOI) TO SEND 
0158 0000 RDYTLK =#88 i; TALK NO ECI 

0157 0000 RDYLST =%1 ; READY TO LISTEN 
0140 0000 RNDRDY =RDYTLK+RDYLST ; RANDOM CHNRDY 
0161 0000 RNDEDI -EOIQUT«-RDYLST ; RANDOM W/ EOI 
0143 0000 i IZO REGISTERS 

0145 0000 ; MOS 6232-1 

0167 OOOO x =$200 d 

0168  O200 IEEEDI #=#+1 ; IEEE DATA IN 

0169 0201 PADD1 ΕΞ ΕΓΊ1 ; IEEE DATA DIR 

0170 202 IEEEDO *=%*+1 ; IEEE DATA OUT 

0171 0203 PBDD1 3m ; IEEE DATA OUT DIR 
0173 0204 i MOS 6532-2 

0175 0204 * =$2B80 ; IEEE CONTROL PORT 
0176 0280 PAD2 Hr] 

0177 0281 ATNA =1 

0178 0281 DACO == i (INVERTED) 

0179 341 RFDD =4 

60180  O281 ΕΟΙΩ =8 

0181 0281 DAVD -16 

0182 0281 EOII =32 

0183 0281 DAVI -64 

0184 0281 ATNI =128 ; (INVERTED) 

0185 0281 PADD? #=#+1 

0186  O282 PBD2 بیت پد‎ 

0187 0283 ¿BITS 0-2 DEVICE # SELECT 
0188 0283 LED1 -۵ ¿ACTIVE LED 1 

0189 0283 LEDO - ٤0 ; ACTIVE LED 0 

0190 0283 ERRLED =32 ; HARDWARE INIT ERR LED 
0191 0283 NDACI =64 

0192 0283 NRFDI =128 

0192 0283 PBDDZ w#w#ax+i 

0164 0284 ATNND #=#+1 ٢ ; ATN IS IRG CAUSING 
0195 0285 ATNPD بے ہے‎ 

0196 0286 ATNNE %=*+1 

0197 02687 ATNPE =#+i 

0198 6288 . END 


0199  O288 .LIB RAMVAR 


RAMVAR 


' LINES 


0201 


0203 
0204 
o205 
0206 
o207 
0208 
0209 
0210 
0211 
0212 
ٹف021‎ 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
022 
0223 
0224 
0225 
0226 
0227 
022 

0229 
0220 
0231 


2 0232 


5 ioc 
0233 
0234 


ον 0235 


0236 


0238 
0239 


0241 
0242 


0243 


0244 


0245 
0246 
0247 
0248 
0249 
0250 


| 0251 


0252 
0253 


. 0554 


var 


LOC 


O288 
1003 
1012 
1012 
1021 
1099 
1099 
1099 
109F 
10AO0 
1041 
1043 
1044 
1045 
1046 
1048 
1044 
1048 
104C 
iOAD 
104D 
104D 
1050 
1050 
1088 
1060 
1060 
10650 
1050 
100 
10Γ 3 
10F3 
10F4 
10F5 


106 
10F6 


10F6 
10F6 
10F6 
106 
106 
LOFE 
10Fé 
1076 
0000 
0002 
0004 
0004 
000C 
000D 


PAGE 


CODE 


LINE 


; COMMON AREA DEFINES 


#=S1002 
JOBS Reet 1 5 ; JOB QUE 
ز 15+#=# ك۷ ۳۳ جو جو جو ود جو ویر یی یر یز‎ JOB TRACK TABLE 

*=$1021 ; HEADERS AT $1021 
HDRS وت ہو‎ +- 1 20 i JOB HEADER 

=$1099 ; SECTORS/TRACK TABLE 
NUMSEC 

3-$109F 
VERNUM #=#+1 i VERSION NUMBER 
ACTJOB #=#+1 i CONTROLLER ‘5 ACTIVE JOB 
PHASE #=#+2 i STEPPER BASE PHASE 
STPTRK %*=%+1 ; NUMBER OF TRACKS/STEP 
NZONES #=#4+1 ; NUMBER OF DENSITY ZONES 
SYNDLY #=#+1 i SYNC BELAY FOR PLL 
WPSW πα i WRITE PROTECT CHANGE FLAG 
LWPT khak ica 2 ; LAST STATE OF WP SWITCH 
PBI سے ہو‎ i BLOCK IDENTIFIER 
CFLG2 2172 i COMMON FLAG2 
NSIDES #=#+1 ift OF SIDES ON DISKETTE 
; eek EXPAND COMMON VARIABLES HERE 3 پ‎ 

*=$10BO i START OF TRACK BOUNDARIES 
MAXTRK i MAX TRACK # +1 i 
TRANUM #=#+8 ift OF 1ST TRACK IN EACH... 
OFFSET ۹28 i RECOVERY TRACK OFFSET SEQ. 


i... ZONE, BUT 18۲١ ZONE. (REVER 
; PERMANENT ADDRESS VARIABLES 
*=$10FO 
VNMI LIE لعل‎ i INDIRECT FOR NMI 
NMIFLG #=#+1 
AUTOFG #=#+1 


SECINC #=#+1 ; SECTOR INC FOR SEG 
REVCNT #=#41 ; ERROR RECOVERY CDUNT 
BUFS = #1100 ; START OF DATA BUFS 

FBUFS = 0 ; FORMAT DOWNLOAD IMAGE 


P* 
i جو جو جو جو جو جو جو جو جو جو جو جو جج ېې ېډ ېړ ېډ ېب ېد‎ RT جو جو جد‎ JP جھ 3 جد جو چچ چو‎ 
iO 
; 3 ZERO PAGE VARIABLES 
P) 
جو جو جو جو جو چو جو جو چو د ماد اډ چو جو چو چو جو جو چو یو جو چډ ېد یر دز‎ GR چو جو جو جو جو‎ E 
دنور‎ 
#= $0 
USRJMP #=#+2 ; USER JMF TABLE PTR 
BMPNT #=#+2 ; BIT MAP POINTER 
TEMP #=#+6 ; i TEMP WORK SPACE 
IP m4 + تی‎ ; INDIRECT PTR VARIABLE 
LSNADR #=#+1 ; LISTEN ADDRESS 
TLKADR 323341 : TALKER ADDRESS 


` RAMVAR. ..... PAGE 0008 


LINES LOC CODE LINE 


- 0255 0005 LSNACT #=#+1 ; ACTIVE LISTENER FLAG 
- 0254 7 TLKACT *=++1 i ACTIVE TALKER FLAG 
0257 0010 &DRSED %*=%+1 ; ADDRESSED FLAG 
O258 0011 PRGTRHh #*=*+1 i LAST PROG ACCESSED 
o259 0012 DRVNUM 3-31 i CURRENT DRIVE # 
C260 0013 TRACK *=*+1 i CURRENT TRACK 
0261 0014 SECTOR ٤11 ; CURRENT SECTOR 
^ شت لا‎ 0015 LINDA #=#4+1 i LOGICAL INDEX 
0263 0016 SA سو ہر ہچ‎ 1 i SECONDARY ADDRESS 
0264 0017 ORGSA (1 i ORIGINAL. SA 
. 0245 0018 DATA H=H+1 i TEMP DATA BYTE 
0266 0019 i * 
0267 0019 j ἃ 
0268 0019 TO =TEMP 
0269  OO019 T1 =TEMP+1 
0270 0017 T2 =TEMP+2 
0271 7 T3 =TEMP+3 
0272 0019 T4 =TEMP+4 
0273 7 RO m3 41 
0274  OO1A^ R1 وت پږ‎ ] 
0275  OOIB R2 H=%*+1 
0276  OO1C R3 Ἠξα ΕΙ 
0277  OO1D 4م‎ =%+1 
0278  OO1E RESULT #=#+4 
0279 0022 ACCUM #=#+5 
0260 0027 DIRBUF #=#+2 
028i 0029 i% 
0282 0029 EE 3E 3E ہی‎ JE 3E IE چھ‎ SERERE IE HE dE GE 
O2E3 0029 P* 
0284 7 I ور‎ ZERO PAGE ARRAY 
0285 0029 P* 
0256 0029 ; چو ېل خد چو ہو چو چو‎ AE dE SE dE HE FF FE HF dE HE 4E HE IEEE 
0287 0029 j # 
6288 0029 BUFTAB *#=#+CBPTR+4 i BUFFER BYTE POINTERS 
0289 0049 CB=BUFTAB+CBPTR 
0290 0049 BUFO H4=++MXCHNS 
Og91 412 BUF 1 #=R+MXCHNS 
0292 0059 NBKL 
0293 0059 REGEL #=#+MXCHNS 
0294 0061 NBKH 
0295 12 RECH #=H+MXCHNS 
0296 0062 NR ېت په‎ +۷ ۴)٤ 
0297 0071 RS #=#+MXCHNS 
0278 0079 SS. #s#+MXCHNS 
0299 0081 F1PTR +*=#+1 ; FILE STREAM 1 POINTER 
0300 0082 j 
οσο  OO&g2 j پد ځد وو چو چو چو پد چډ چھ چو‎ ΣΕ ېډ بد چو ېد پد‎ JR د‎ ODE جد چڊ جج‎ 
C302 0062 i $4300 VARS MOVED TO ZP 
03039 0052 i 
OG04 0062 RECPTR 33-1 
0305 0063 SSNUM #=#+1 
0306 0084 SSIND #=#+1 
0307 0085 RELPTR #=#+1 ۱ 
0308 0086 ENTSEC #=#+MXFILS . 3 SECTOR DF DIRECTORY ENTRY 


0307  OOSB ENTIND %*=%+MXFILS ; INDEX OF DIRECTORY ENTRY 


[em 


RAMVAR 


LINER 


0310 


` 0311 


0312 
0313 
0314 
0315 
016 
037 
0318 
0312 
0320 


` 031 


0322 


0323 
0324 
0325 
0326 
0327 
0328 
6329 

330 
Ο5531 
0332 
0333 
0334 
0335 


0337 
0338 
0339 


0341 
0342 
043 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
03 
0353 


s * c! p. b 


LOC 


00970 
0095 
GOFA 
0۵2 
00 
OOARB 
OOAC 
OOZF 
00C7 
OOCF 
000 
OODO 
OODO 
COBO 
OODO 
OGDBO 
OODO 
000 
OGDO 
4300 
4338 
433C 
433D 
433D 
433D 
433D 


433D 
433E 
433E 


433F 
4340 
4342 
4342 
4346 
4348 
4349 
43445 
42456 
434C 
434D 
434E 
434F 


PAGE 00097 


LINE 


DEFAULT FLAG, DRIVE # 
PATTERN, REPLACE, CLOSED-FLAC 
CHANNEL FILE TYPE 

CHANNEL STATUS 

TEMP. EG! 

CURRENT JOD ٭‎ 

SA: LINDX TABLE 

CHANNEL DATA BYTE 

CHANNEL. LAST CHAR PTR 
ACTIVE FILE TYPE 


FILDRV *=++MXFILS 
PATTYP *=++MXFILS 
FILTYP #=#+MXCHNS 
CHNREDY #=#+MXCHNS 
EDIFLG #=#+4+1 

JOBNUM *=>+1 

LINTAB #=*+MAXSAt+1 
CHNDAT #=#+MXCHNS 
LSTCHR #=s+MXCHNS 
TYPE 4= 4-1 


+ 


په "mo -ν X‏ -- بد < m‏ ہے ہے 


P 
j HEH HE HE JEJE A db IE چو‎ 3E JE دځ‎ SE دځ‎ 3 
j * 
i% RAM VARIABLES IN $4300 
P3 
جو ېد بډ چو بد په ہز‎ JE چو جو بد‎ 3E ېې جو جو‎ RE IE E dE 
P* 
*=$4300 
CMDBUF *=#+CMDLEN+1 
CMDNUM %=3%+1 i COMMAND # 
STRSIZ %*=%+1 
i ZP: RECPTR *=#+1 
i ZP: SSNUM +#=#+1 
; ZP: SSIND و‎ 
i ZP: RELPTR #=#+1 


TEMPSA 323-41 ; TEMPORARY SA 

i ZP: | EOIFLG 1 i TEMP EOI 

CMD 334-1 ; TEMP JOB COMMAND 
LSTSEC 171 i 

BUFUSE 35AM2 i BUFFER ALLOCATION 

i ZP: JOBNUM #=#+1 i CURRENT JOE # 
DSKID #=#+4 i CURRENT DISK ID'S 


; BAM O & 1 DIRTY FLAGS 
; DIR-ENTRY FOUND FLAG 
;DIR LISTING FLAG 

i COMMAND WAITING FLAG 
i LINDX USE WORD 

;LAST BUFFER USED 


MDIRTY #=#+2 
ENTFND 335-1 
DIRLST #=#+1 
CMDWAT 323-1 
LINUSE s3zs-41 
LBUSED *=%+1 
REC 3 mg 
TRKSS #=#+1 
SECSS #=#+1 


 RAMVAR. ..... PAGE 0010 


LINEH LOC CODE LINE 
0355 4350 و‎ 
0356 4350 j چو ہی کپ یر‎ dE ہر چو‎ 3 26 HE جو‎ 3E 3E چو جو چڊ چو جو‎ ΜΕΣ 


0357 4350 - 
0359 4350 جر‎ RAM ARRAY AREA 
0359 4350 i 8 
03260 4250 EEE EEE چھ ہے جو جو‎ de جج جد جو جد د جج جد جو جو جو‎ IE جو کډ جد ې جد څې‎ 
251 4250 P* 
0362 4550 LSTJOB #=#+BFCNT+3 ; LAST JOB 
0343  485F ZP:  LINTAB #=#+MAXSA+1 ; SA:LINDX TABLE 
0364 435F ;ZP: CHNDAT t=3+MXCHNS ; CHANNEL DATA BYTE 
0365  435F DSEC #=#+MXCHNS ; SECTOR OF DIRECTORY ENTRY 
03606 4367 DIND #=#+MXCHNS ; INDEX OF DIRECTORY ENTRY 
0367 43۵۴ ERWORD #=#4+1 ; ERROR WORD FOR RECOVERY 
0368 4370 PRGDRV #=#+1 ; LAST PROGRAM DRIVE 
0369 4371 PRGSEC w=#+1 i LAST PROGRAM SECTOR 
0370 4372 WLINDX 3-1 ; WRITE LINDX 
0371 4373 RLINDX #=#+1 ; READ LINDX 
0372 4374 ΝΒΤΕΜΡ #=#+2 ; # BLOCKS TEMP 
0374 4376 . — CMDSIZ #=#+1 ; COMMAND STRING SIZE 
0375 4377 CHAR sel ; CHAR UNDER PARSER 
0376 4378 LIMIT بجحت«‎ ; PTR LIMIT IN COMPAR 
0377 4379 FICNT ربیحى‎ ; FILE STREAM i COUNT 
0378 4374 F2CNT #=#+1 ; FILE STREAM 2 COUNT 
0379  437B F2PTR si ; FILE STREAM 2 POINTER 
0380 56 ; PARSER TABLES 
0381 437C FILTBL #=#+MXFILS+1 ; FILENAME POINTER 
0382 4382 i ΖΒ: FILENT #=#4+MXFILS ; DIRECTORY ENTRY 
0353 4362 i ZP: FILDAT #=#+MXFILS ; DRIVE d$, PATTERN 
0384 4382 FILTRK *=*+MXFILS Ἢ AST LINK/TRACK 
0385 4387 FILSEC *=#+MXFILS i /SECTOR 
0387 4586 ; CHANNEL TABLES 
0388 6 ZP:  FILTYP #=#+MXCHNS ; CHANNEL FILE TYPE 
0389 438C ;ZP:  CHNRDY #=#+MXCHNS ; CHANNEL STATUS 
0390 6 ; ZP: LSTCHR #=#+MXCHNS ; CHANNEL LAST CHAR PTI 
0392 4380 PATFLG بے ہو‎ +1 ; PATTERN PRESENCE FLAG 
0393 438D IMAGE &=%+1 ; FILE STREAM IMAGE 
0394 428E DRVCNT 33441 ; NUMBER OF DRV SEARCHES 
0395 438F DRVFLG 3-341 ; DRIVE SEARCH FLAG 
0396 4390 LSTDRV #=#+1 ; LAST DRIVE W/O ERROR 
0397 4391 FOUND #=#+1 ; FOUND FLAG IN DIR SEARCHES 
0398 4392 DIRSEC #=#+1 ; DIRECTORY SECTOR 
0299 4293 DELSEC #=#+1 ; SECTOR DF 1ST AVAIL ENTRY 
0400 4394 DELIND #=#+1 ; INDEX " 
. 0401 4395 LSTBUF #=#+1 ; =0 IF LAST BLOCK 
0402 42396 INDEX *=*+1 ; CURRENT INDEX IN BUFFER 
0403 7 FILCNMT #=#+1 ; COUNTER, FILE ENTRIES 
. 0404 4398 TYPFLG 3i ; MATCH BY TYPE FLAG 
0405 4399 MODE *=*+1 ; ACTIVE FILE MODE (R.W) 
0406 439A ZP: TYPE #=#+1 j ; ACTIVE FILE TYPE 


0407 6 JOBRTN #=#+1 ; JOB RETURN FLAG 


RAMVAR. ..... PAGE 0011 


LINES LOC CODE LINE 

0408 8 EPTR سے بات چو‎ 1 ; PTR FOR RECOVERY 

0409  439C TOFF #=++1 ; TOTAL TRACK DFFSET 
0410 439D NDBL ې جد ہے ہو‎ 2 

0411  439F ۷08 H=%+2 

0412 4341 NODRV #=#+2 

0414 3 ; 3t 

0415 3ه‎ EEE کو چو مال چھ چو چو جو جج ج جد چو جو جد جو جد چو چو چو بد مد جب ېډ ېد ېد جو چو جو چو چو چو مې چو چو‎ EAR 

04164 4343 P3 

0417  43^3 زو‎ QUTPUT BUFFERS 

O418 4343 P3X* 

کو چو RENE‏ چو چو E E‏ چو 3 E E HE E 4F HE HE‏ چو چو چو E GE GEHE‏ جو چو جو جرد جو چو ΕΕ‏ جو جو د چو جو جو O419? 4343 EEE‏ 
i*‏ 4343 0420 

0421 4343 *=$4400-36-36 

0422 4388 NAMBUF 33436 ; DIRECTORY BUFFER 
0423  43DC ERRBUF =+# ; ERROR MSG BUFFER 
0425  43DC . END 

0426 43DC .LIB ROM 

0427 43DC *=ROM 

0428  COOO CODE ; CONTROLLER FORMAT CODE 
0429  COOO z#+$3A1 

0430 45۹1 CDIAG ; CONTROLLER POWER UP... 
0431 1 #=#+$80 i... DIAGNOSTICS & INIT. 
0432 C421 00 CCHKSM . BYTE O 

0433 C422 . END 

0434 C422 . LIB PARSEX 


PARSE & EXECUTE...... PAGE 0012 


, LINER LOC CODE LINE 
0436 C422 ; PARSE & EXECUTE STRING IN CMDBUF 
|. 0438 C422 PARSXG 
0439 C422 20 71 EF JSR OKERR 
0440 C425 A5 17 LDA ORGSA 
0441 C427 10 09 BPL 05م‎ 
0442 C429 29 OF AND #$F 
. 0443 CA2B C9 OF CMP HEF 
0444 CA2D FO 03 BEG PSOS 
0445  CAgF 4C οἱ EO JMP OPEN 
O446 C432 20 81 5 PSOS JSR CMDSET ; SET VARIABLES, REGS 
0447 C435 B1 45 LDA (CB), Y 
0448 C437 8D 77 43 STA CHAR 
0449 C434 A2 OB LDX #NCMDS-1 ; SEARCH CMD TABLE 
. 0450 C42C BD 50 FB PS10 LDA CMDTBL, X 
- 0451 C43F CD 77 43 CMP CHAR 
0452 C442 FO 08 BEG PS20 
0453 C444 CA DEX 
0454 C445 10 F5 BPL 0 
0455 C447 A? 31 LDA HBADCMD ΕΝΏ SUCH CHD 
0456 C449 4C 96 C4 JMP CMDERR 
0457 C44C ΒΕ 3B 43 PS20 STX CMDNUM ;X= CMD ٭‎ 
0459 C44F EO O9 CPX HPCMD ; CMDS NOT PARSED 
0440 C451 90 O3 BCC PS30 
O461 C453 20 BC C4 JSR TAGCMD ; SET TABLES, POINTERS &PATTERN 
0442 C456 AE 38 43 PS30 LDX CMDNUM 
0463 C459 BD SC FB LDA CJUMPL., X 
0464 C45C 85 04 STA TEMP 
0465 CASE ED 68 FB LDA CJUMPH, X 
0466 C461 685 05 | STA TEMP+1 
0467 C463 6C 04 00 JMP (TEMP) ; COMMAND TABLE JUMP 
0469 C444 ; SUCCESSFUL COMMAND TERMINATION 
. 0470 C466 61 
0471 6466 AD 6Ε 43 LDA ERWORD 
0472 C449 DO 2D BNE 70٤ 
0473 8 i 
. 0474 C46B ΑΟ OO LDY 90 
0475 C46D 8 TYA 
0474 C46E 84 13 STY TRACK 
0478 C470 84 14 SCREND STY SECTOR ; SCRATCH ENTRY 
0479 C472 84 45 STY CB 
0480 C474 20 7C EF l JSR ERRMSG 
0481 C477 20 F2 F9 JSR ERROFF 
O482 C474 AS 12 LDA DRYNUM 
0487 C47C BD 90 45 STA LSTDRV 
0484 C47F AA TAX 
0485 C480 AP OO LDA KO 
O486 C482 FD Al 45 8۵ NODRV, X 
0487 C485 20 BB C4 JSR CLRCB 
0488 C468 4C DS D7 JMP FREICH ; FREE INTERNAL CHANNEL 
0489 8 


i 
0490 28 CLRCB 


PARSE 


LINER 


0491 
0492 
0493 
0494 


0495 


0496 
0497 
0498 
0499 
0500 
0501 
0502 
0203 


0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0313 


ہام و = = u‏ 


& EXECUTE 
LOC CODE 
C48B AO 39 
(9855 A? OO 
C48F 

C48F 79 00 
C492 88 
C4°3 10 ΓΑ 
C495 60 
C498 

C496 

C495 AO OO 
C478 84 13 
C494 84 14 
C49C 4C EA 
C49F A2 OO 
C4A1 BE 7C 
C4A4 A? 3A 
C446 20 36 
C4A9 FO OS 
CAAB 88 
C4AC | 88 
C4AD 8C 7C 
C4B0 4C 33 


43 


EE 


43 


CS 


43 
Có 


PAGE 0013 


LINE 


LDY 

LDA 
CLRBZ 

STA 

DEY 

BPL 

RTS 


i 


HCMDLEN-1 


#0 


CMDBUF, Y 


CLRE2 


; COMMAND LEVEL ERROR PROCESSING 


CMDERR LDY 
STY 
STY 
JMP 


SIMPRS LDX 
STX 
LDA 
JSR 
BEG 
DEY 
DEY 
STY 
SP10 JMP 


#0 
TRACK 
SECTOR 
CMDER2 


#0 
FILTBL 
ft: 
PARSE 
SP10 


FILTBL 
SETANY 


: SIMPLE PARSER 


i SET DRIVE # 


PARSE-TAGCMD. ..... PAGE 0014 


LINES LOC CODE LINE 

0515 C4Ba ' PRSCLN 

0516 ۲483 AO OO LDY 80 

0517 C4B5 A2 OO LDX #0 

0518 C4B7 A? 34 LDA 4”: 

0519 C4B9 4C 36 CS JMP PARSE ¿FIND POS“ N OF ٣ 
0520 C4BC i 

03521 C4BC i TAG COMMAND STRING 

0522 C4BC ; SET UP CMD STRUCTURE 

0523  C4BC i IMAGE % FILE STREAM PTRS 

0524 ا‎ i 

05264 ۹6 TAGCMD 

0527 C4BC 20 B3 C4 JSR PRSCLN 

0528 48۴ DO O5 BNE TC3O 

0529 C4c1 A? 34 TC25 LDA #NOFILE ; NONE, NO FILES 
0530 C4C3 4C 96 C4 JMP CMDERR 

0531 c4cé& 8 TC30 DEY 

0532 C4C7 8 DEY 

0533 caca BC 7C 43 STY FILTBL ;":"-] STARTS FSI1 
0534 4٥ 84 TXA 

0535 c4cc DO F3 BNE TC25 ERR: "," BEFORE ":" 
0536 46٤ A? 3D TC35 LDA 18 i SEARCH: "x" 

0537 CADO 20 36 C5 JSR PARSE 

0538 403 BA TXA ; PFILE COUNT= 1-1? 
0539 C4D4 FO O2 BEG TC40 

0540 C4D& A? 40 LDA #%01000000 ; G1-BIT 

0541 C4D8 09 21 TC40 ORA 4700100001 ;Ε1, *E2-BITS 

0542 C4DA 8D BD 43 STA IMAGE iFS STRUCTURE 

0543 C4DD ES INX 

0544 C4DE BE 79 43 STX F1CNT 

0545 C4E1 8E 7A 43 STX F2CNT ; INIT FOR NO FS2 
0546 C4E4 AD BC 43 LDA PATFLG | 
0547 C4E7 FO OD BEQ TC50 

0548 C4E9 A? BO LDA #%10000000 ;P1-BIT 

0549 C4EB OD 8D 43 ORA IMAGE 

0550 C4EE SD 8D 43 STA IMAGE 

0551 C4F1 A? 00 LDA #0 ۱ 

0552 C4F3 BD 8C 43 STA PATFLG ; CLEAR PATTERN FLAG 
0553 C4F6 98. TCSO TYA iPTR TO ۵ : 
0554 C4F7 FO 29 BEG TC79 ; FS2 NOT HERE 
0555 C4F9 9D 7C 43 STA FILTBL, X 

0556 C4FC AD 79 43 LDA F1CNT ; FS2 IS HERE NOW... 
0557 C4FF BD 7B 43 STA 5۹ ;...NOQW SET F2 PTR 
0558 C502 A? BD LDA 0 ; FIND CR-SHIFTED 
0559 C504 20 36 C5 JSR PARSE ; PARSE REST OF CMD STRING 
0540 C507 ES l INX ; ADVANCE FILTBL PTR TO END 
0561 C508 BE 7A 43 STX F2CNT ; SAVE IT 

Οὐ“: C50B CA DEX ; RESTORE FOR TEST 
0563  C50C AD & 43 LDA PATFLG : SAVE LAST PATTERN 
0564 CSOF FO O2 BEA ٤0 ; PANY PATTERNS? 
0565 C511 AY 8 LDA 0٤0ب‎ ; YES, P2-BIT 

0566 C513 EC 79 43 TC60 CPX 7 ; PFZCNT=F1CNT+17 
0567 C516 FO 02 BEG TC70 

0548 C518 Οὐ 04 ORA 86 i G2-BIT 


0569 C514A .09 03 TC70 ORA #40011 i E2-BIT, ^E2-BIT 


PARSE-TAGCMD 


LINER 


0570 
0571 
0572 
0573 
0574 
05753 
0976 
0577 
0578 


. 0579 


0580 


LOC 


ς5ις 
CO1F 
6 2 
62 
CS2 

C528 
C52B 
Co2D 
Ορ 
C531 
C533 


4D 
8D 


AD 
AE 
aD 
DO 
60 


A9 
4C 


8D 
8D 


SD 
3B 
6C 
O1 


eF 
30 
سی‎ 


PAGE 0019 


43 
43 


43 
43 
FB 


43 


c4 


LINE 


TC7Š 


TC80 


ΕΩΠ 
STA 


LDA 
LDA 
AND 
BNE 
RTS 
STA 
LDA 
JMP 


IMAGE 
IMAGE 


IMAGE 
CMDNUM 
STRUCT, X 
ΤΟΘΟ 


ERWORD 
#BADSYN 
CMDERR 


; EOR CLEARS ^E2-BIT 


i MATCH CMD TEMPLATE 


j; *4+COULD BE WARNING 
; ERR: BAD SYNTAX 


0591 C536 


PARSE...... PAGE 0016 


Y: IN: INDEX, CMDBUF 
QUT: NEW PTR, =O IF NONE 


0589 C536 
0590 C536 


LINE LOC CODE LINE 
, 05883 34م‎ ; PARSE STRING 
. 0584 C536 i LOOKS FOR SPECIAL CHARS, 
, 0585 C536 ; RETURNING WHEN VAR BL. CHAR 
0584 C536 i IS FOUND 
0587 C526 i A: VAR BL CHAR 
. O588 CS36 i X: IN, OUT: INDEX, FILTBL+1 
i (Z=1) IF Y=0 
0593 C536 8D 77 43 PARSE STA CHAR i SAVE VAR ‘BL CHAR 
0594 C539 CC 76 43 PR1O CPY 72 ; STAY IN STRING 
0595 53م‎ ۴6 BO 2E BCS PR30 
0596 CS3E B1 45 LDA (CB), Y ; MATCH CHAR 
0597 C540 CB INY 
0598 C541 CD 77 43 CMP CHAR 
0599 C544 FO 28 BEG PR35 ; FOUND CHAR 
O600 C546 C? 6۵ CMP $ 3 ; MATCH PATTERN CHARS 
0601 C548 FO 04 BEG PR20 
0602 C54A ο 3F CMP 8/3 
0603 C54C DO 03 BNE PR25 
0504 C54E EE BC 43 PR20 INC. PATFLG ; SET PATTERN FLAG 
0605 C551 ο 2C PR25 CMP 8’, i MATCH FILE SEPARATOR 
04606 C553 DO E4 BNE PRiO 
0507 555 58 TYA 
0608 C556 9D 7D 43 STA FILTBL+1, X ;PUT PTRS IN TABLE 
0609 C559 AD BC 43 LDA PATFLG ; SAVE PATTERN FOR EA FILE 
0610 C55C 29 7F AND 4$7F 
- 0611 C55E FO 07 BEQ PR28 
0612 C560 A? 80 LDA 0 ; RETAIN PATTERN PRESENCE... 
0613 C562 95 95 STA PATTYP, X 
0614 C564 BD ὃς 43 STA PATFLG i... BUT CLEAR COUNT 
0615 C567 EB PR28 INX 
0616 0568 EO 04 CPX #MXFILS~1 
0617 C564 90 CD BCC PR10 ; NO MORE THAN MXFILS 
0618 C5&C AO OO PR3O  LDY 80 1ΥΞ0 (Z=1) 
0619  C56E AD 76 3 PR35 LDA CMDSIZ 
. 0620 C571 9D 7D 43 STA FILTBL+1, X 
- 04621 C574 AD BC 43 LDA PATFLG 
0622 C577 29 7F AND خ7‎ 
0623 C579 FO 04 BEG PR40 
0624 C57B A? 80 LDA H$80 
0625 C57D 95 95 STA PATTYP, X 
0626 C57F 98 PR40 TYA ;Z IS SET 
| 0627 C580 60 RTS 
0629 CSB! ; INITIALIZE COMMAND TABLES, PTRS, ETC. 
0631 C581 A4 45 CMDSET LDY BUFTAB+CBPTR 
0532 C583 FO 14 BEG 8٤ 
0633 C585 BE DEY 
0634 C586 FO 10 BEQ CS07 
0635 C588 BY OO 43 LDA ChDBUF, Y 
0636 (0588 C9 OD CMP 7 


0637 CSED FO OA BEQ 09508 


PARSE...... PAGE 0017 


LINES LOC CODE LINE 

0638 جج5‎ 88 f DEY 

0639 C590 BY 00 43 LDA CMDDBUF, Y 
0640 C593 C9 OD CMP #CR 

0641 C595 FO O2 BEG 86 

0442 C397 C8 INY 

0843 C378 CE C807 INY i 

0644 C599 BC 76 43 C505 STY CMDSIZ : SET CMD STRING SIZE 
0646 C99C CO 3B CPY #CMDLEN+1 
0647 CSE AO ΕΕ LDY #SFF 

0648 C340 90 08 BCC CMDRST 

0649 CSA2 BC 3B 43 STY CMDNUM 

0650 CSAS A? 32 l LDA #LONGLN ; LONG LINE ERROR 
0651 C54A7 4C 96 C4 JMP CMDERR 

0652 CIAA i CLEAR VARIABLES, TABLES 
0453 ۵ CMDRST 

0554 CSAA AQ OO LDY #0 

0655 CSAC 98 TYA 

0656 CSAD 85 45 STA BUFTAB+CBPTR 
0657 CSAF 8D 4D 43 STA REC 

0658 5B2 85 CF STA TYPE 

0659 CSB4 8D 98 43 STA TYPFLG 

0640 CSE7 85 81 STA FiPTR 

0661 CSB? 8D 7B 43 STA F2PTR 

0662 CSBC BD 79 43 STA FACNT 

6663 C5BF BD 7A 43 STA F2CNT 

0664 C502 8D BC 43 STA PATFLG 

0665 CSCS 8D óF 43 STA ERWORD 

0666  C5C8 A2 OS LDX #MXFILS 

06657 CSCA 9D 7B 43 CS10 STA FILTBL-1: X 
0668 CSCD 95 85 STA ENTSEC-1,X 
0669 CSCF 25 ΒΑ STA ENTIND-1,X 
0670 1ت5‎ 95 BF STA FILDRV-1,X 
0571 C5D3 95 94 STA PATTYP-1,X 
0872 5005 90 81 43 STA FILTRK-1, X 
0473 ٢١5 ب8‎ 9D 86 3 STA FILSEC-1,X 
0674 C5DB CA DEX 

0675 C5DC DO EC ç BNE C810 

0676 CSDE 60 RTS 

0678  CSDF i . END 


0679 ۴ .LIB SETDRV 


SET DRIVE 

LINE# LOC 

O681 CIDF 
0482 CIDF 
0683 CSEe 
0684 5 
0685 7 
0686 ΟΞΕΑ 
0688 CSED 
0689 CSED 
0690 CSFO 
0691  CoF2 
0492 ۵۹ 
0693  CSF7 
0694 ٤ 
0495 CSFC 
0696 CIFF 
0497 C600 
069798 C602 
0699 C603 
0700 4 
0701 C608 
0703 C609 
0704 7 
0705 C609 
0704 C609 
0707 C409 
0708 . C609 
0710 C609 
0711 ۵ 
0712 پا‎ 
0713 C60F 
0714 C611 
0715 4 
0716 C616 
0717 7 
0718 C518 
0719 4٨ 
0720 8 
0721 G61C 
0723  C61D 
0724 C620 
0725 C691 
0726  Cóo22 
0727 4 
O72E  Có26 
0729  Cà28 
0730 848۵ 
0731 6 
0732 6ئ‎ 
0733 10ں‎ 


0734 


C62F 


: . . ه هم . 


AD 
8D 
A9 


gD 


BD 
ES 


ο” 
PO 
C9 
FO 
DO 


98 


29 


ΖΑ 
79 
Oi 
7A 
75 


90 


81 
7C 


81 
7C 


90 


ھ7 
EA‏ 


00 


30 
31 
EE 


EB 


80 


43 
43 


43 


43 


43 


43 


Có 


43 


43 


43 


43 


43 


LINE 


; SET 1ST DRIVE AND TABLE POINTERS 
ONEDRV LDA 57 

STA F1CNT 

LDA #1 

STA 17 

STA F2PTR 


; SET UP ALL DRIVES FROM F2CNT 
ALLDRS LDY LSTDRV ; SET UP DRIVE 7 


LDX 40 ;... INTO FILE ENTRY TABLE.. 


AD1O STX 1۹6 ;... ON SECTOR PTR BYTE 
LDA FILTBL, X 

JSR SETDRV 

LDX F1PTR 

STA FILTBL, X ; INCR PTR PAST ":" 
TYA i BITS REP DRIVES 
STA FILDRV,X ; BIT7: DEFAULT 

INX ;BITO: DRIVE i 

CPX F2CNT 

BCC AD10 

RTS 


; SET DRIVE NUMBER 

; DETERMINES DRIVE # FROM TEXT OR 
; USES DEFAULT (-D) 

; A: IN, OUT: INDEX, CMDBUF 

; Y: IN: DEFAULT DRIVE 


OUT: DRIVE NUMBER, - IF DEFAULT 

SETDRV TAK ; X= CMDBUF INDEX 

LDA 8’: | 

CMP CHDBUF+1, X ; FOR XXX: FILE 

BEG پ60‎ i dis 

CMP CHMDBUF: X ; FOR XXX: FILE 

BNE 55050 i di 

INX ;FOUND ":", SO... 
00 TYA ; DRIVE= DEFAULT 
2 AND #1 ; CONVERT TO NUMERIC 
5D24 TAY ; RESTORE DRIVE 

TXA ; A-INDEX & XXXXFILE 

RTS j A^ 


840 LDA CMDBUF, X 


INA ; XXX: FILE 

INX ; κως 

CMP ٭‎ ٤.0 ;FOR XXQ: FILE 

BEG 5102 i et 

CMP Η΄ 1 FOR XXL: FILE 

BEG SD22 i X 

BNE SD20 ; CMD: FILE OR XX, : FILE 
80 =+ ; 5 7 

TYA G; FOR XXX, FILE OR XX=FILE 

ORA 0 i un "m 

AND 45881 i DRIVE- “DEF AULT 


SET DRIVE 

LINES LOC 

0735 1ئ‎ 
0737 C633 
0738 C632 
0729 CoS 
0740 C638 
0741 82 
0742 Céad 
0743  Có4O 
0744 C642 
0745 C643 
0746 C646 
0747 C648 
07480  C64B 
0749 Calc 
0750 ا‎ 
0751 1ئ‎ 
0752 Ο654 
0753 C656 
0754 C658 
0755  C6SB 
0756 ٢ئ8‎ 
0757 610 
0758  C65F 
07959 C661 
0760 C663 
0742 C664 
0763 C664 
0764 C666 
07695 C669 
0766  C66C 
0767 CAGE 
0768 C671 
0769 C674 
0770 C677 
0771 78 
0772 C&7A 
0773  C67C 
0774 ۳ 
0775 C681 
0776 C682 
0777 C684 
0778 C685 
0779 C688 
0781 C689 
0782 CaS? 
٣0763  CAGP 
0784 0ص‎ 
0785 CUF 
0786 C691 
0787 3 
0788 ٤56 


0789 


Ce96 


عم ھ ده هه ہم 


A9 
810 
AC 
81 
20 


10 


CC 
BO 
AC 


DO 
CE 


29 
85 
4C 


AS 
49 


85 
60 


جج 
FO‏ 
Ε5‏ 
FO‏ 
OG‏ 
27 
نه 


00 
79 
7A 
16 
7A 


70 


45 
04 
82 


03 


F8 


98 


30 
06 
31 
02 
go 
81 


43 
43 


Cé 


43 


43 


43 
43 


F9 


43 
43 


43 
43 
43 


FB 


43 


LINE 


BNE 


; SET DRIVE 
SETANY LDA 


SAOS 


SA10 


SA20 


STA 
LDY 
LDA 
WSR 
BPL 
INY 
CP Y 
BCS 
LDY 
DEY 
BNE 
DEC 
LDA 
AND 
STA 
JMP 


604 ; FINISH TESTING 
FROM ANY CONFIG. 

#0 

IMAGE 

FILTBL 

(CB), Y 

TSTOVI 

SA20 


CMDSIZ 
SA10 
CMDSIZ 


8 5 
IMAGE 
LSTDRV 
iti 
DRVNUM 
SETLDS 


i TOGGLE DRVNUM 
TOGDRV LDA 


EDR 
AND 
STA 
RTS 


DRVNUM 
#1 
#1 
DRVNUM 


; SET PTRS TO ONE FILE STREAM & CHK TYPE 
FS1SET LDY 


FS10 


FS15 


LDA 
CMP 
BEQ 
DEC 
LDY 
L.DA 
TAY 
LDA 
LDY 
CMP 
BEQ 
DEY 
BNE 
TYA 
STA 
RTS 


i TEST CHAR 


TSTOV1 


TOVI 


CMP 
BEQ 
GMP 
BEG 
ORA 
AND 
RTS 


#0 
F1CNT 
F2CNT 
FS15 
F2CNT 
F2CNT 
FILTBL, Y 


(CB), Y 
HNTYPES-1 
TYPLST, Y 
FS19 


FS10 | 


TYPFLG 


IN ACCUM FOR "O" DR "i" 
#0 

TOVI 

1 ٭ 

TOVI 

#$80 


#381 


. END 


Ἢ SET DRIVE...... PAGE 


LINER LOC CODE 


0790 C696 


. LIB LOOKUP 


LOOKUP-OPTSCH...... PAGE 0021 


LINE# LOC CODE LINE 

0792 C696 ; OPTSCH OPTIMAL SEARCH FOR LOOKUP 

0793 6 ; AND FNDFIL 

0795  Cé96 AG OO OPTSCH LDA #0 ; DETERMINE OPTIMAL SEARCH 
0796 Cé98 85 04 STA TEMP ; INIT DRIVE MASK 
0797 C494 8D BF 43 STA DRVFLG 

0798 C69D 48 PHA 

0799  C&9E AE 7A 43 LDX F2CNT 

0800 CóA1 68 0510 PLA 

0801 CA2 05 04 ORA TEMP 

0802 C&A4 48 PHA 

0803 ٥۵5 A? 1 LDA isti 

0804 CéA7 85 04 STA TEMP: 

0805 C&A? CA DEX 

0806 ۵۸ہ‎ 30 OF BMI 0 

0807 CAC BS 90 LDA FILDRV, X 

0808 C&AE 10 04 BPL 5 

0809 CABO 06 04 ASL TEMP 

0810 Cé6B2 Οὐ 04 ASL TEMP 

0812 C4B4 4# 0515 LSR Å 

0813 (685 90 EA BCC QS10 

0814 C587 06 O4 ASL TEMP 

0815 C&B? DO E6 BNE 0 ; (BRANCH) 

0817 88ہ‎ 68 0830 PLA 

0818 C6BC AA TAX 

0817 C&BD BD OB C7 LDA SCHTBL-1, X 

0820 C&C0 48 PHA 

0821 C&C1 29 03 AND 3 

0822 C&C3 BD BE 43 STA DRVCNT 

0823 CCA 68 PLA 

0824 CàC7 OA ۱ 7 ASL ۵ 

0825 C4C8 10 3E BPL 0840 

0926 C&CA AS 90 LDA FILDRV 

0827 CACC 29 نه‎ 0535 AND #1 

OB28 CCE 85 15 STA DRVNUM 

0829 CADO AD SE 43 LDA DRVCNT | 
0930 C4D3 FO 2B BEG 0540 ; ONLY 1 DRIVE ADDRESSED 
0831 C6D5 20 OC C9 JSR AUTOI ; CHECK FOR AUTO INIT 
0832 C&D8 FO 12 BEG 0 ; DRIVE IS ACTIVE 
0833 CADA 20 5B Cé JSR TOGDRV 

0834 C&DD A? OO LDA #00 ; SET 1 DRIVE ADDRESSED 
0835 C&DF BD BE 43 STA DRVCNT 

0836 C&E2 20 OC C? | JSR AUTOI ; CHECK FOR AUTO INIT 
0837 CóES FO 1E BEG 0570 ; DRIVE IS ACTIVE 
0838 7 0545 

0829 C6E7 A? 74 LDA #NODRIV 

0840 CóE9 20 96 4 JSR  CHDERR ; NO DRIVE ERROR 
C841 CAEC 00 

0842 CAEC 20 58 C6 JSR TOGDRV 

0843 C6EF 20 OC CF JSR AUTOI 

0844 CeF2 08 PHP 

0845 C4F3 20 SB C6 JSR TOGDRV 


0846 C&FS 28 PLP 


LOQKUP-OPTSCH 


0863 


LINE# LOC 
0847 7 
0848 C4F9 
_ 0849 CFB 
0850 C6FE 
0851 0 
ο855 C700 
- 6853 c703 
0854 C705 
0855 C705 
0857 C708 
0858 C709 
x 0860 56 
0850  C70D 
0860 ء7٤‎ 
0861 7۳۴ 
0861 C710 
0861 C711 
_ 0861 C712 
0862 3 
0862 4 
0862 C715 
.- 0862 C716 
0863 7 
0863 8 
— 0863 C719 


C714 


نر * = * <= $ 


CODE 


FO 
وم‎ 
8D 
FO 


20 
DO 


4C 


ος 
οο 
BE 
ο» 


OC 
Ez 


DC 


CC 


43 


Co 


F9 


C6 


PAGE 0022 


LINE 


BEG 0570 
LDA #00 
STA DRVCNT ; SET 1 DRIVE ADDRESSED 
BEG پ0‎ ; BRA 
00 
JSR ۳۶ 
BNE 0545 ; DRIVE NOT ACTIVE 
0570 
JUMP SETLDS 


0540 ROL A 
JMP 55 


SCHTBL .BYT Or $80, $41 


.BYT 1,1,1,1 
.BYT $81, 881, $81, $81 


.BYT $42, $42, $42, $42 


LOOKUP /FNDFIL...... 
LINER LOC CODE 
0855  C71B 

0866 ۵ 

0868 C71B 20 96 
0869 C71E A? OO 
0870 C720 BD 94 
0871 C723 20 78 
060872 C726 DO 17 
0873 728 CE BE 
0874 C72B 10 Oi 
0875 720 60 
0876 C72E A? Ol 
0877 C730 BD SF 
0878 C733 20 OB 
0879 C736 20 DC 
0880 C739 4C IE 
0881 C73C 20 Eó 
0885 "73۴ FO 10 
OGS3 C741 20 4 
0884 C744 AD 91 
ogg5 C747 FO Ot 
0886 C749 60 
0888 (744 AD 48 
0889 C74D 30 ED 
0890 C74F 10 FO 
og72 C791 AD 1 
0893 C754 FO De 
0894 C756 60 
0896 C757 

0897 C737 

0898 7 

0899 C797 

0900 C757 20 D3 
090i 75۵ FO 1A 
0902 7506ء‎ DO 28 
0904 C75E AG Oi 
0905 C760 BD 8F 
0906 C763 20 SB 
0907 C766 20 DC 
0909 C749 A? OO 
0910 C76B 8D 4 
0911 C74E 20 78 
0912. C771. DO 13 
09123 C773 8D 3 
0914 C776 AD 91 
0915 C779 DO 28 
0916 C77B CE BE 
0917 C77E 10 DE 


0718 


C780 


60 


C6 


43 
Ca 


43 


43 
Có 


7 
C8 


C7 
43 


43 


43 


cg 


43 
Cé 


43 
C8 


43 


P^ 


ہے 


43 


PAGE 0023 


LINE 


; LOOK UP ALL FILES IN 
AND FILL TABLES ۶7 


H 
! 


LOOKUP JSR 


LAC» 


LALO 


LKLS 


LK2O 


LK25 


LK26 


LK3O 


LDA 
STA 
JSR 
BNE 
DEC 
BPL 
RTS 
LDA 
STA 
JSR 
JSR 
SMP 
JSR 
BEG 
JSR 
LDA 
BEG 
RTS 


LDA 
BMI 
BPL 


LDA 
BEG 
RTS 


OP TSCH 
#O 

DEL IND 
SRCHST 
LASS 
DRVCNT 
415 


#1 
DRVFLG 
TOGDRV 
SETLDS 
LAOS 
SEARCH 
30 
COMPAR 
FOUND 
LA26 


ENTFND 
LK20 
25 


FOUND 
LALO 


STREAM 
INFO 


; START SEARCH 


NO MORE DRIVE SEARCHES 
i TOGGLE DRIVE # 


-. 


TURN ON LED 


æ 


; FIND VALID FN 
; END OF SEARCH 
; COMPARE DIR W/ TABLE 
; FOUND FLAG 
i ALL FN'S NOT FOUND, YET 


; FIND NEXT FILE NAME MATCHING 
و‎ ANY FILE IN STREAM & RETURN 

; WITH ENTRY FOUND STUFFED INTO 
i TABLES 


FFRE 


FF15 


FFST 


۴1 


JSR 
BEG 
BNE 


LDA 
STA 
JSR 
JSR 


LDA 
STA 
JER 
BNE 
STA 
LDA 
BNE 
DEC 
BPL 
RTS 


SRRE 
FF10 
FF25 


#1 

DRVFLG 
TOGDRV 
SETLDS 


#0 
DELIND 
SRCHST 
FF2535 
FOUNP 
FOUND 
۵ 
DRVCNT 
18م‎ 


; FIND FILE RE-ENTRY 


;FIND FILE START ENTRY 


—— 


LOOKUP /FNDF IL 


LINES LOC 

0920 71ي‎ 
0921 4 
o722 C796 
0923 757 
097924 7ی‎ 
0725 C78E 
0926 C791 
0927 C793 
0929 C795 
09 30 C798 
0931 ۸ 
0932 C79C 
0 33 C79E 
O934 34 


0935 


C743 


CODE. 


eo 
FO 
20 
AE 
10 
AD 
FO 
DO 


AD 
FO 
B5 
2? 
CD 
DO 
60 


E6 
FO 
4م‎ 
48 
O7 
91 
EE 
OE 


98 
09 
99 
07 
98 
DE 


C8 


C7 
43 


43 


43 


43 
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LINE 


FNDFIL JSR 


FF25 


FF30 


FF40 


BEG 
JSR 
LDX 
BPL 
LDA 
BEG 
BNE 


LDA 
BEG 
LDA 
AND 
CMP 
BNE 
RTS 


SEARCH 
FF10 
COMPAR 
ENTFND 
FF30 
FOUND 
FNDFIL 
FF40 


TYPFLG 
FF40 
PATTYP: X 
HTYPMSK 
TYPFLG 
FNDF IL. 


; FIND FILE CONTINUOUS... 
i... RE-ENTRY, NO CHANNEL ACTI 
: COMPARE FILE NAMES 


; NO TYPE RESTRICTION 


LOOKUP-COMPAR. .... .PAGE 0025 


LINES LOC CODE LINE 

0937 4 ; COMPARE ALL FILENAMES IN STREAM TABLE 
0938 4 ; WITH EACH VALID ENTRY IN THE 

οσα»  C7A4 ; DIRECTORY. MATCHES ARE TABULATED 
0941 C7A4 2 FF COMPAR LDX ۳٣ 

0942 C746 BE 48 43 STX ENTFND 

0943 C7A9 E8 INX 

0944 C744 BE BC 43 STX PATFLG 

0945 C74D 20 55 C8 JSR CMPCHIK 

0946  C7EO FO O6 BEG 0 

0947 C7BZ 60 Ρο» RTS i ALL ARE FOUND 
0949 C7B3 20 60 C8 CPOS JSR CC1O 

0950 786 DO FA BNE CPO2 

0931 788ھ‎ AS 12 CP10 LDA DRVNUM 

0952 C7BA 553 90 EOR FILDRV,X 

0953 C7BC 4A LSR A 

0954 C7BD 90 OB BCC CP20 ; RIGHT DRIVE 
07955 C7BF 29 40 AND 4860 

0956 οσοι FO FO BEG CPOS i NO DEFAULT 

0957 ος. A? O2 LDA 2 

0958 75م‎ CD BE 43 CMP DRVCNT 

0959 708 FO E? BEQ CPOS ; DON'T USE DEFAULT 
0961 C7CA BD 7C 43 CP20 LDA FILTBL, X i GOOD DRIVE MATCH 
0962  C7CD AA TAX 

0963 C7CE 20 75 C9 JSR FNDLMT 

0964 C7D1 AO 03 LDY 3 

0965 C7D3 AC E? C7 JMP CP33 

0966  C7D6 CP30 

0967 706 BD OO 43 LDA CMDBUF, X 

0968 707 Di 27 CMP (DIRBUF)Y 

0969 C7DB FO OA BEG CP32 i CHARS ARE = 
0970 C7DD i 

0971 C7DD C9 SF CMP #°? 

0972 C7DF DO D2 BNE CPOS ; NO SINGLE PATTERN 
0973 C7E1 Bi 7 LDA (DIRBUF)Y 

0974 C7E3 C9 A0 CMP 0 

0975 C7ES FO CC BEG CPOS ; END DF FILENAME 
0976 ۶7 CP32 

0977 |767 ΕΒ INX 

0978 78 8 INY 

0979  C7E9 CP33 

0980 C7E9 EC 78 43 CPX LIMIT 

0981 C7EC BO Οὐ BCS 4 ; END OF PATTERN 
0982  C7EE i 

0983 C7EE BD OO 43 LDA CMDEUF, X 

0984 C7F1 CF 24 | CMP dis 

0985 c7F3 FO OC BEG CP40 ; STAR MATCHES ALL 
0785 C7F5 DO ΡΕ BNE CP3C ; KEEP CHECKING 
987 7 CP34 

0988 C7F7 CO 13 CPY #19 

0989 C7F9 BO O6 | BCS CP40 ; END 0۴ FILENAME 
0990  C7FB i 


0991 C7FB B1 7 LDA (DIRBUF)Y 


LOOKUP -COMP AR 


LINER LOC 

0992 C7FD 
0993 7۳ 
07۹5 C801 
0996 C804 
0997 7 
0998 C809 
0997  CBOGB 
1000 CBOE 
1001 C811 
1002 C812 
1003  CB8B15 
1004 C817 
1005 7 
1006 ژ۷‎ 
1007 CBIC 
1008  C81D 
1009 7 
1010 1 
1011 C822 
1012 ۹4 
1013 C824 
1014 C826 
1015 C828 
1016 8 
1017  CB82A^ 
1018 ٤٣ 
1019 C82E 
1020 C830 
1021 C832 
1022 C834 
1023 C826 
1024 C838 
1025 C83A 
1026 56 
1027 CBSE 
1028 CBSE 
1029 840 
1030 C843 
1031 C844 
1022 C846 
1033  CB49 
1034  C84C 
1035 ع4‎ 
1036 C850 
1037 C852 
1028 ΟΒ55 
10979 CESS 
1040 CRIS 
1042 5 
1044 C855 
1045 C857 


1046 


CBSA 


. ο. 


CODE 


σσ 
DO 


AE 
BE 
85 
27 
8D 
AD 
93 
AS 
ΘΟ 
AQ 


AG 


AD 


AG 
B2 


7B 
48 
75 
80 
8 
96 
88 
14 


43 
43 


43 
43 


86 — 


00 
27 


40 
04 


DF 
02 


20 


FF 
91 
74 


43 


43 
43 


43 


43 
43 


PAGE 0026 


LINE 


CP40 


CP42 


CP SO 


; CHECK 


CMP CHA 


CMP 
BNE 


LDX 
STX 
L DA 
AND 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
INY 
PHA 
AND 
STA 
PLA 
AND 
BMI 


ORA 


AND 
ORA 
STA 
L DA 
&ND 
ORA 
STA 
LDA 
AND 
ORA 
STA 


LDA 
STA 
INY 
LDA 
STA 
LDA 
BNE 
LDY 
LDA 
STA 


10 
CPOS 


FØPTR ; FILENAMES MATCH 
ENTFND 

PATTYP, X iSTORE INFO IN TABLES 
#$80 

PATFLG 

INDEX 

ENTIND, X 

SECTOR 

ENTSEC, X 

40 

(DIRBUF), Y 


#540 
TEMP 


HEFF-$20- 
CP42 


00 


#927 
TEMP 
TEMP 
4$80 
ΡΑΤΤΥΒ, X 
TEMP 
ΒΑΤΤΥΡ, X 
FILDRV, X 
{ΘΟ 
DRVNUM 
FILDRV, X 


(DIRBUF ), Y 
FILTRMK, X 


(DIRBUF), Y 
FILSEC, X 
REC 

CPo0 

1 
(DIRBUF DY 
REC 


i JMP CMPCHK 
; RTS 


TABLE FØR UNFOUND FILES 


LDA 
STA 
LDA 


ΗΦΡΕ 
FOUND 
F2CNT 


LOOKUP -COMP AR 


LINES 


1047 


1049 
1050 
1051 


1023 
1054 
1055 
1056 
1057 
1055 
1059 
1060 


LOC 


C85D 


C840 
C863 
C865 


C866 
CRE? 
C84B 
C86D 
C870 
C872 
C874 
C877 


مه م é‏ ده م 5 


CODE 


810 


CE 


60 


AE 
ES 
30 
BD 
DO 
A9 
BD 
50 


7B 


7B 
01 


7B 
79 
05 
ga 
EE 
00 
91 


PAGE 0027 
LINE 
43 
43 606,8 
43 CC15 
43 
ccao 
43 


STA 


DEC 
BPL. 
RTS 


LDX 
LDA 
BMI 
LDA 
BNE 
L.DA 
STA 
RTS 


F2PTR 


F2PTR 
σοι» 
i TABLE EXHAUSTED 


FePTR 
PATTYP, X 
CC2O0 
FILTRK, X 
CC10 

#0 

FOUND 


= 


LOOKUP -SEARCH 


LINES LOC 

1042 C878 
1063 C878 
1064 C878 
1065 C878 
1066 C878 
1067 C878 
1068  CE78 
1070 C878 
1071 C878 
1072 C&7B 
1073 C87D 
1074 C880 
1075 CSB 
1077 C884 
1078 7 
1079 CEB? 
1080 8 
1081 ٢:8910 
1082 C890 
1084 C893 
1085 C876 
1086 C878 
1088 77 
1089 C89B 
1090 COPE 
1091  CBAQ 
1092 7۹3 
1094 CSAS 
1095 CBA? 
1096 CBAC 
1097  CBAE 
1098 C8EO 
1100  CEB2 
1101 5ھ‎ 
i102 C837 
1103 408۵ 
1104  C8EC 
1106  C8BF 
1107 οσοι 
1108 ΟΒΟΑ͂ 
1109 77 
1110 CBC? 
11195 CECA 
1113  C8CC 
1114 ۶۴۳ 


1115 


اا6 


a ده‎ 4 + an 


CODE 


OG 
00 
93 


48 


46 
13 


14 
93 
7i 


95 
Q1 


07 
97 
00 
FA 
95 


E6 
97 
00 


16 


93 
2F 
7B 
14 
93 


27 
94 
94 
1D 


οἱ 
94 
2D 
13 


67 


43 


43 


FB 


43 
D7 


43 


43 


07 
43 


7 
43 


43 


ES 


43 


43 
43 


43 
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LINE 


; SEARCH DIRECTORY 


i 
i 
i 
i 
i 
i 


SRCHST 


SR10 


SR15 


SRSO 


JSR 
LDY 
STY 
DEY 
STY 


LDA 
STA 
LDA 


"STA 


STA 
JSR 


LDA 
BNE 
RTS 


LDA 
STA 
LDA 
JSR 
STA 


JSR 
DEC 
LDY 
LDA 
BNE 


LDA 
BNE 
JSR 
LDA 
STA 


LDA 
LDX 
STA 
BEG 
RTS 


LDX 
CPX 
BNE 
BEG 


AUTOI 
πο 
DELSEC 


ENTFND 


DIRTRK 
TRACK 
#1 
SECTOR 
LSTBUF 
OPNIRD 


LSTBUF 
SR19 


#7 
FILCNT 
#0 

DRDBYT 
LSTBUF 


GETPNT 
FILCNT 
#0 


RETURNS WITH VALID ENTRY W/ DELIND=0 
OR RETURNS W/ 15۲ DELETED ENTRY 
W/ DELIND=1 


SRCHST WILL INITIATE Å SEARCH 
SEARCH WILL CONTINUE Å SEARCH 


: INIT DELETED SECTOR 


; START SEARCH AT BEGINNING 


i OPEN INTERNAL READ CHNL 
: LAST BUFFER IF 0 


i (Z=1) 


; READ TRACK s 


; UPDATE END FLAG 


(DIRBUF), Y ;READ FILE TYPE 


SR3O 


DELSEC 
SEARCH 
CURBLK 
SECTOR 
DELSEC 


DIRBUF 
DELIND 
DEL IND 
SEARCH 


#i 
DELIND 
SR50 
SEARGH 


; DELETED ENTRY FOUND 
i DELETED ENTRY ALREADY FOUN 
i GET CURRENT SECTOR 


; GET CURRENT INDEX 
;BIT1: WANT DELETED ENTRY 


; NEED VALID ENTEY 
i (2-0) 


i PLOOKING FOR DELETED? 
; Να! 


LOOKUP -SEARCH 


LINES LOC 

1117 3 
1118 4 
1119 8 
1120 C8DB 
1121 80ت‎ 
1122 ٢٣80 
1123 CBES 
1125  CS8E6 
1126 CBES 
1127 CSEB 
1128 ۶ 
1129  C8FO 
1130  CB8F2 
1131 C8FS 
1133 C8F8 
1134  CBFB 
1136 ٤ 
1127 C900 
1138 C903 
1129 C906 
1140 C908 
1142 C9OB 
1143  C90C 
1144 σος 
1145  C9OF 
1146 C911 
1147 C913 
1148 C916 
1149 C918 
1150 CFIA 
1191. - 10 
1152 C920 
1153 C922 
1154 C924 
1195 C926 
1156 C928 
1157 C924 
1158  C92C 
1159 οσος 
1160  C92E 
1161  C92F 
1162 C932 
1163 C934 
1164 C937 
1168 7 
2166 CFI? 
1167  C93C 
1169  C93D 


1170 


C9 3D 


CODE 


AD 
85 
AD 
85 
20 
AD 
20 


A9 
8D 
AD 
30 
A? 
20 


4C 


20 
4C 


AS 
8D 
20 
AS 
8D 


40 


46 
13 
92 
14 
71 
96 
Có 


FF 
48 
97 
o8 
20 
3D 
Ab 


49 
93 


27 
76 
7B 
14 
92 


12 


Al 
o3 
Be 


i2 


Ai 


FB 


43 


D7 


D7 


43 
43 


05 


CB 


D7 


C8 


43 


Eó 


43 


10 


10 


43 
D3 


43 


D3 


43 


PAGE 0029 


LINE 


SRRE 


SEARCH 


SR40 


SRO 


AUTOI 


AUTO1 


AUTOZ 


LDA 
STA 
LDA 
STA 
JER 
LDA 
JSR 


L DA 
STA 
LDA 
BMI 
LDA 
JSR 
JMP 


JSR 
UMP 


LDA 
STA 
JSR 
LDA 
STA 


RTS 


LDA 
BNE 
LDX 
LSR 
BCC 
LDA 
STA 
JSR 
LDY 
CMP 
BEG 
CMP 
BEQ 
LDY 


LDX 
TYA 
STA 
BNE 
JSR 
LDX 
LDA 
RTS 


. END 


.LIB TRNSFR 


DIRTRK 
TRACK 

DIRSEC 
SECTOR 
OPNIRD 
INDEX 

SETPNT 


#*FF 
ENTFND 
FILCNT 
SR40 
#32 
INCPTR 
SR20 


NXTBUF 
SR10 


DIRBUF 
INDEX 

CURBLK 
SECTOR 
DIRSEC 


AUTOFG 
AUTO2 
DRVNUM 
WPSW, X 
αυτος 
ΗΦΕΕ 
JOBRTN 
I TRIAL 
HEFF 
#2 
AUTO1 
83 
αυτοι 
#00 


DRVNUM 


NODRV, X 


AUTO2 
INITDR 


DRVNUM 


NODRV, X 


i ADJUST FILE COUNT 


; INCR BY 32 


; NEW BUFFER 


; (BRANCH) 


; FOUND VALID ENTRY 


i SAVE INDEX 
i GET, SECTOR 


i (220) 


; AUTO- INIT SECTION 


i CHECK DISABLE FLAG 


; TEST & 


3 


i 


CLEAR FLAG 


SET ERROR RETURN CODE 
INIT SEEK-TEST 


NO SYNG = NO DISKETTE 


NO HEADER - NO DIRECTORY 


SET CONDITION OF NO DRIVE 


RETURN NO DRIVE STATUS 


TRANSFER... 
LINES LOC 

1172 C93D 
1173 CTD 
1174  C93D 
1175 0ا93‎ 
1176 C9SD 
1177 C9SE 
1178 C941 
1179 C944 
1180 5 
1181 C946 
1182 C949 
1183 #۵ 
1184  C94C 
1166  C94E 
1187  c9?50 
1188 C932 
1189 3 
1190 C954 
1191 C956 
1193 C957 
1194 C957 
1195 C957 
1196 C957 
1197 C957 
1199 7 
1200 C958 
1201 C959 
1202 CISA 
1203 0ا‎ 
1204  C95F 
1205 C962 
i206 C964 
1207 C966 
1208 C966 
1209 C969 
1210  C96B 
1211  C96C 
1212 C96E 
1213  C96F 
1214 C972 
1215 C974 
1216 C975 
i217 C975 
i218 C975 
1219 C975 
1221 C975 
1222 C977 
1223 C974 
i224  C97B 


1225 


C97C 


48 


20 
68 


ED 
AA 


90 
A9 
91 
ca 


DO 
60 


75 


57 


3c 


OA 
08 


AO 
27 


FA 


ey 
27 
2A 
28 
00 


00 


06 


78 
Fe 


00 
3C 


c9 
Cc? 


43 


00 


00 


43 


43 


43 


LINE 


i TRANSFER FILENAME FROM CMD TO BUFFER 
i A: STRING SIZE 
i X: STARTING INDEX IN CMDBUF 
i Y: BUFFER # 
TRNAME PHA 

JSR FNDLMT 

JSR TRCMBF 

PLA | 

SEC 

SBC STRSIZ 

TAX 

BEG 00 

BCC TN2O 


l LDA 060 
ΤΝΙΟ STA (DIRBUF): Y 
INY 
DEX 
BNE 060 
TN20 RTS 


i TRANSFER CMD BUFFER TO OTHER BUFFER 
; USES CURRENT BUFFER PTR 

; LIMIT: ENDING INDEX+1 IN CMD BUF 

i X: STARTING INDEX IN CMD BUF 

i Y: BUFFER & 


TRCMBF TYA 
ASL A 
TAY 
LDA BUFTAB, Y 
STA DIRBUF 
LDA BUFTAB+1, Y 
STA DIRBUF+1 
LDY #0 


TRIO LDA CMDBUF, X 
STA (DIRBUF), Y 
INY 
BEG 0 
INX 
CPX LIMIT 
BCC 0 

TR2O RTS 


FIND THE LIMIT OF THE STRING IN CMDBUF‏ ر 
POINTED TO BY X‏ ; 


FNDLMT LDA #0 
STA STRSIZ 
TXA 
PHA 

FLOS 


TRANSFER...... PAGE 0031 


LINER LOC CODE LINE 

1226 C97C BD OO 43 LDA CMDBUF, X 
122 C97P- C? 2C CMP 4 
1228 C981 FO 14 BEG FLIO 
122 C983 C? 3D CMP f'= 
123 C985 FO 10 BEG FL1O 
1231 C987 EE 3C 43 INC STRSIZ 
1232 C98A ΕΒ INX 

252 C98B AD OF LDA #15 
1234 C98D CD 3C 43 CMP STRSIZ 
1235 C990 90 05 BCC FL10 
1226 C992 EC 76 43 CPX CMDSIZ 
1937 οσο 90 ES BCC FLOS 
1238 C997 BE 78 43 FL10 STX LIMIT 
1239 C994 68 : PLA 

1240 C99B AA TAX 


1241 C99C 60 RTS 


TRNSFR-GETNAM 


LINEH LOC 

1244 C99D 
1245  C99D 
1246  C99D 
247 C99F 
1248 C940 
1249 C942 
1250 C943 
1251 ۵6ء‎ 
1252 C947 
1253 C949 
1254 09ΑΑ 
1255  C9AC 
1257  C9AD 
1258 Ο9ΑΕ 
1259 C9B1 
1260 4 
i261  C9B7 
1262 C9BA 
1263 6 
1264  C9BF 
1265 1 
1266 C9C4 
1267 5 
1269  C9C8 
1270 8 
1271  C9CD 
1272 مھم‎ 
1273  C9DO 
1274  C9D2 
1275  C9D5 
1276  C9D8 
1277  C9DB 
1278  C9DC 
1280  C9DF 
1281  C9E1 
1282 4ء‎ 
1283 7ء‎ 
1284 COEA 
1285 C9EB 
1287  C9EC 
1988 C9EE 
1289 C9F0 
1290 C9F2 
129i COFS 
1292  C9F7 
1293  C9F9 
1294 COFA 
1295 C9FC 
i296  C9FF 
1297 ۱1م‎ 


1298 


ςΔΟ3 


* w a 9 لسم‎ 


CODE 


CE 
DO 
CE 
20 
20 
38 
4C 


AG 
8D 


20 
38 
60 


A2 
AO 
Bi 
8D 
FO 
A2 
88 
Bi 
8D 
EO 


co 


16 


15 


AD 


19 


16 


c? 


D4 


43 


43 


CA 


CA 


43 


43 


43 


CA 


Cé 


43 


CA 


43 


43 


PAGE 0032 


LINE 


i GET FILE ENTRY FROM DIRECTORY 


; CALLED BY STDIR, 


GETNAM LDA 


GNSUB 


GNOS 


6030 


GNOS1 


GN10 


GN12 


PHA 
LDA 
PHA 
JSR 
PLA 
STA 
PLA 
STA 
RTS 


LDA 
STA 
JSR 
JSR 
LDA 
BPL 
LDA 
BNE 
JSR 
CLC 
JMP 


LDA 
BEQ 


DEC 
BNE 
DEC 
JSR 
JSR 
SEC 
JMP 


LDA 
STA 
STA 
JSR 
SEC 
RTS 


LDX 
LDY 
LDA 
STA 
BEG 
LDX 
DEY 
LDA 
STA 
CPX 
BEG 
CMP 


SA 


LINDX 


GNSUB 


LINDX 


SA 


#IRSA 
SA 
FNDRCH 
GETPNT 
ENTFND 
GNOS 
DRVFLG 
GNOSO 
MSGFRE 


GN45 


DRVFLG 
GN10 


DRVFLG 
GNOS1 

DRVFLG 
TOGDRV 
MSGFRE 


TOGDRV 


#0 


NBTEMP+1 


DRVFLG 
NEWDIR 


#DIRLEN 


#29 


GETDIR 
; SAVE VARIABLES 


; RESTORE VARIABLES 


i MORE FILES 


; SEND BLOCKS FREE 
; (050): END 
i TERMINATE 


i (DRVFLG=0): 
; SEND FILE NAME 


i (DRVFLG=-1):NEW DIR 


i (DRVFLG--1): 
i SEND BLOCKS FREE 


; RESET FLAG 


: SET NUMBER BLOCKS 
; & ADJUST SPACING 


(DIRBUF),Y 


NB TEMP + 1 


GNie 


HDIRLEN-2 


(DIRBUF), Y 


NBTEMP 


#DIRLEN-2 


GN14 
#10 


TRNSFR-GETNAM 


LINER LOC 

1299 CAOS 
1300 0-7 
1301 CAOB 
1302  CAOA 
1303 CAOC 
1305  CAOD 
1307 0 
1308 Cala 
1309 3 
1310 CA14 
1311  CA16 
1312  CA18 
1313  CA1B 
1314  CA1B 
1315 ۹٤ 
1316 اھت‎ 
1317 CALF 
1318 ۵2 
1319  CA235 
1320  CA26 
1521 CA29 
1322 ٤٤0 
1323  CAZD 
1324  CA3O 
1325 CA33 
1326 CAJA 
1327 CASS 
1328 7 
1329  CA39 
1330 ٤ 
1321 CAGE 
1322  CA41 
1333 ۹2 
1354  CA44 
1335 ۵64 
1336 ۹7 
1337 ۵ 
1238 82 
1339 1ئ‎ 
1341 ۲ج۵‎ 
1342 1 
1343 4 
1344 CASS 
1345 CAS7 
1344 CAS" 
1347 CAJC 
1348 CASE 
1349 CAGO 
1350  CA62 
1351 4 
1352 6٣6۵64 


CA69 


a a * ء‎ ο” 


CODE 


06 
64 
01 


7D 


05 
3c 
B9 


OF 


BC 
88 


87 
88 


85 
88 


05 
24 


AO 
BS 


12 
27 
BS 


03 
F9 


CA 


43 


FB 
43 


FB 
43 


FB 
43 


43 


43 


43 


43 


43 


43 


PAGE 0033 


LINE 


GN14 


6Ν1 5 


GN20 


GN22 


GN30 


"05 


037ج 


BCC 
DEX 
CMP 
BCC 
DEX 


JSR 


LDA 
PHA 
ASL 
BPL 
LDA 
STA 


PLA 
AND 
TAY 
LDA 
STA 
DEX 
LDA 
STA 
DEX 
LDA 
STA 
DEX 
DEX 
BCS 
L.DA 
STA 
LDA 
STA 
DEX 
LDY 
LDA 
STA 
DEX 
DEY 
CPY 
BCS 


LDA 
STA 
INX 
CP X 
BCS 
LDA 
CMP 
BEG 
GMP 
BNE 
LDA 
STA 
INX 


GN14 

#100 

GN14 

BLKNB ; CLEAR NAME BUFFER 
(DIRBUF),Y ; SET TYPE CHARS 


A ; (USED IN BCS) 
GN1S 

# “< 

NAMBUF +1, X 


HSF 


TP2LST,'Y 
NAMBUF, X 


۲۳19 Y 
NAMBUF, X 


TYPLST, Y 
NAMBUF., X 


GN20 i (FROM ASL?) 

x ; FILE NOT CLOSED 
NAMBUF+1, X 

ΗΦΑΟ 

NAMBUF, X. 


#18 
(DIRBUF),Y 
NAMBUF, X 


#3 
GN22 


#7" ; SEND NAME IN QUOTES 
NAMBUF, X 


#520 
GN3S 
NAMBUF, X 
we 
GNSS 
#540 
GN3O 

a 6M 
NAMBUF, X 


TRNSFR-GETNAM 


LINES 


1354 
1355 
1356 
1357 
1358 
1399 


1361 
1262 
1363 


1365 
1366 
1367 
1368 
1369 
1370 


1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1584 
1385 
1386 
1387 


1389 
1390 
1391 
1392 
1393 
1594 
1395 
1396 
1397 
1398 
1299 
i400 
1401 
1402 
14023 
1404 
1405 
1406 
1407 
1408 


LOC 


۵66۵ 
CA&C 
CASE 
CA70 
CA73 
CA76 


CAO 
CA7B 
CA7C 


CA7D 
CA7F 
CAGI 
CAB 4 
CASS 
CAE7 


CABB 
CAES 
CA88 
CARB 
CASE 
CARI 
CA93 
CAPS 
CA97 
CAPA 
CA9C 
CA9F 
CAA2 
CAA4 
CAA7 
CAA9 


CAAB 
CAAD 
CAAF 
CAB 1 
CABS 
64 
CAB4 
CABS 
CABS 
CABA 
CABA 
CABC 
CABC 
CABF 
CACO 
CAC2 
CAC4 
CAC7 
CAC9 
CACC 


مه .= جع میم م 


CODE 


20 
OA 
7F 
BS 
8 
Fi 


81 


1B 
B7 


FA 


27 
AO 
ος 


20 


BA 


پر 
c‏ 


i2 
B8 
22 
BY 


43 
43 


C7 


43 


C? 


CA 


43 


43 
FB 


FB 


43 


43 
43 


PAGE 0034 


LINE 


CPX 0 
BCS GN40 
LDA ۳ 
AND NAMBUF, X 
STA NAMBUF, X 
BPL GN37 


GN40 JSR FNDFIL 
SEC 


GN45 RTS 


BLANB LDY 72 : BLANK NAMBUF 
LDA 60 

BLKNB1 STA NAMBUF-1. Y 
DEY 
BNE BLKNB1 


RTS 


; NEN DIRECTORY IN LISTING 
NEWDIR 
JSR AUTOI 
JSR RDDIR 
JSR 8ا8‎ 
LDA 7۶۴۳٣ 
STA TEMP 
LDX DRVNUM 
STX NBTEMP 
LDA 40 
STA NBTEMP+1 
LDA 17 
STA DIRBUF+1 
LDA DSKNAM 
STA DIRBUF 
LDY #22 


ND10 LDA (X(DIRBUF), Y 
CMP 850 
BNE ND20 
LDA &'1 ; VERSION # 1 
.BYTE $2C 
ND15 
LDA (DIRBUF)Y 
CMP ۵0 
BNE 0 


LDA #420 


STA NAMBUF +2, Y 
DEY 

BPL NDIS 

LDA 2 

STA NAMBUF 

LDA H /" 

STA NAMBUF+1 
STA NAMBUF+18 


TRNSFR-GETNAM 


LINES LOC 

1409  CACF 
1410 CADI 
1411 4 
1413 CADS 
1414  CADG 
1415  CADA 
1416  CADD 
1417  CAEO 
1418  CAEI 
1419 3 
1421 CAES 
1422  CAF2 
1423 2 


1424 


CAF2 


t=» +»: 


CODE 


ΑΣ 
0ا8‎ 
60 


20 
AO 
B9 
99 
88 
10 
4C 


42 


20 


CB 


7D 
OB 
E& 
88 


F7 
68 


4C 


43 


CA 


CA^ 


43 


F8 


PAGE 5 


LINE 


LDA 
STA 
RTS 


MSGFRE JSR 
LDY 
MSG1 LDA 
STA 
DEY 
BPL 
JMP 


#$20 
NAMBUF+19 


2-۷۶۴ 

SMSGLEN-1 
FREMSG, Y 
NAMBUF, Y 


MSGi 
NUMFRE i GET NUMBER OF BYTES 


FREMSG . BYTE ‘BLOCKS FREE. ° 
MSGLEN zs FREMSG 


. END 


.LIB SCRTCH 


پا س —— 
H‏ 
‘ 


= mama 


SCRATCH. ... 
LINES LOC 

1426  CAF2 
1427  CAF2 
1428 CAFS 
1429  CAFB 
1420  CAFD 
1431 CAFD 
i422 CAFF 
1433  CBO2 
1424 CBO4 
1435 7 
1426  CBO9 
1437 CBOB 
1438  CBOD 
1439  CBOF 
1440  CB11 
1441 CBI] 
1442  CB14 
1443  CB16 
1444 6ص‎ 
1445  CB1A 
1446 CBIC 
1447 CB1D 
1448  CB1F 
1449  CB21 
1490 CB24 
1451  CB27 
1452  CB29 
1453 CB2B 
1455  CB2D 
1456  CB30 
1457  CB32 
1458  CBS35 
1457 7 
1461  CB3A 
1462 CB3C 
1463 ۴ 
1465 .CB41 
1466  CB43 
1467 CB45 
1468  CB47 
1469 CB49 
1471 CBAC 
1472  CB4F 
1473  GB52 
1474  CB54 
1475 ο 
1476 CBSA 
1477 CBSC 
1478  CBSF 
1479 1 


1480 


CB63 


0036 


C6 


C6 


C7 


CB 


CB 
43 


43 
43 


CB 


C7 


C4 


F8 
D7 


D7 
D4 


D4 


DELFIL 


LINE 


i SCRATCH FILE(S) 


SCRTCH JSR 
JSR 
JSR 
L DA 
STA 
JSR 
BMI 
JSR 
BCC 
LDY 
LDA 
AND 
BNE 


SC1S 


JSR 
LDY 
` LDA 
BEG 
STA 
INY 
LDA 
STA 
JSR 
LDX 
LDA 
AND 
BNE 


SC17 


LDA 
STA 
LDA’ 
STA 
JSR 


INC 
JSR 
BPL 


SC20 
Sce 


LDA 
STA 
LDA 
LDY 
JMP 


SC30 


JSR 
JSR 
LDA 
JSR 
JSR 
STA 
JSR 
STA 
LDA 
BNE 


DEL2 


FS1SET 
ALLDRS 
OPTSCH 
#0 

RO 
FFST 
SC30 
TSTCHN 
525 
#0 


(DIRBUF), Y 


($40 
SC25 


DELDIR 
#19 


; SET UP FOR 1 STREAM 


; USED AS FILE COUNT 


i IS IT ACTIVE 2 
i YES — DONT SCRATCH 


i LOCK BIT 
; IT'S LOCKED 


i DELETE DIRECTORY 
i IS THIS A RELATIVE ? 


(DIRBUF), Y ; HAS A SS ? 


SC17 
TRACK 


; NQ 
; YES — SAVE TRACK 


(DIRBUF), Y ; GET SECTOR 


SECTOR 
DELFIL 
ENTFND 
$20 


PATTYP, X 


80 


FILTRK, X 


TRACK 


FILSEC, X 


SECTOR 
DELFIL 


RO 
FFRE 
SC15 


RO 
TRACK 
#1 

#0 
SCREND 


FRETS 

DPNIRD 
40 

8 ۲ 
RDBYT 

TRACK 

RDBYT 

SECTOR 
TRACK 

DEL 1 


; DELETE BY LINKS 
; CREATED, NOT CLOSED 


i DELETE BY LINKS 


i FINISHED, SET 


; FILE COUNT 
; END OF SCRATCH 


; DELETE FILE BY LINKS 
; UPDATE BAM 


SCRATCH. ... 
LINES LOC 

1481 CBAS 
1482 8 
1483 8 
1484 CBSE 
1485  CB71 
1487 74 
14688 76 
1489 77 
1490 77 
1451  CB7C 
1493  CB7F 


1494 


CB7F 


32 
9D 
77 
49 
55 


00 
27 


ΑΟ 
ΑΕ 


0037 

LINE 
F8 
05 
F8 DEL 1 
D7 
CB 


DEL DIR 


ES 


JSR 
JMP 
JSR 
JSR 
JMP 


LDY 
ΤΥΑ 
STA 
JSR 
JMP 


. END 


MAPOUT 
FRECHN 
FRETS 
NXTBUF 
DEL2 


Μο ; DELETE DIR ENTRY 
(DIRBUF),Y 


WRTQUT 
WAT JOB 


.LIB DUPLCT 


DUPLICATE 

LINER LOC 

1496  CB7F 
1498  CB7F 
1499  CE7F 
1500 CB&e 
1501 54 
1502  CBB8B6 
1503  CBEB8 
1504 18 
1505 CBSE 
1506 CBI 
1507 8 1 
1508 74 
1509  CB?6 
1510  CB98 
1511 78 
1512 CB9D 
1913  CBAO 
1514 #0 
1915 3 
1516 4 
1517 CBAS 
1518 7 
1519 CBAS 
1520  CBAB 
1521 CBAE 
1522 CBE 
1523 CBB4 
1524 CBB4 
1525  CBD7 
1526 CBB? 
1527  CBBC 
1528  CBBE 
1529 CBBE 
1530  CBC1 
1531  CBC3 
1532 0ος» 
1534  CBC8 
1535 8 
1534 CECA 
1537 CBCD 
i538  CBCF 
19539  CBD1 
1540 4 
1941 146 
1545 8 
1543  CBDE 
1544 CBDD 
1545 CREO 
1547 CBES 
1548  CBE3 
1549  CBE6 


1550 


CBE9 


b‏ مھ © p‏ د 


DE 
91 
12 
18 
Be 
82 


B2 
ς8 
02 


02 


o3 
87 


5B 


CC 


og 
ο 
D3 


FA 


10 


Da 


Có 


43 
43 


43 


FA 


10 


pa 


cc 


FB 


CB 


10 


Da 


C4 


CB 


CC 


LINE 


; DUPLICATE DISK 


DUPLCT 


DUP1 


; COPY 
CP YDi 


; COPY 
CPYTRK 


JSR 
LDA 
STA 
LDA 
ORA 
STA 
JSR 


JSR 
LDY 
LDA 
CMP 
BEG 
JMP 


JSR 
ASL 
TAY 
EOR 
TAX 
LDA 
STA 
LDA 
STA 


JSR 
LDY 
LDA 
STA 


JSR 
LDA 
STA 
JSR 


PRSEQ 
FILDRV+1 
DRVNUM 
#LEDO+LED1 
PBD2 

PBD2 
INITDR ; INIT SRC 
SETBMP 

#2 

(ΒΜΡΝΤΟΥ 

VERNUM 

DUP1 

VNERR 


TOGDRV 
A 


#2 


DSM ID, X 
DSHK ID, Y 
DSAID-*1,X 
DSKID+1, Y 


SETBMP 
#2 
VERNUM 
(BMPNT)Y 


CLDCHN 
#1 
TRACK 


FORMAT ; FORMAT DST DRIVE 


BLOCKS FROM ONE DRIVE TO OTHER 


LDA 
JSR 
STA 
DEC 
JSR 
INC 
LDA 
CMP 
BNE 
JSR 


JMP 


ONE 
JSR 
JSR 
JSR 


TRACK 
MAXSEC 
SECTOR 
SECTOR 
CPYTRK 
TRACK 
TRACK 
MAXTRK 
CPYD1 
INITDR 
ENDCMD 


i COPY ONE TRACK 


TRACK 
SETRH 
READS 
WRITES 


i READ 10 SECTORS 
iWRITE 10 SECTORS 


DUPLICATE...... 
LINES LOC 
1551  CBEC 
1952  CBEE 
1553 CBFO 
1555 1 
1556 61 
1957 CBF! 
1598 ف0‎ 
1559 ) 58 
1560 89 
1951  CBFA 
1562  CBFC 
1563 CBFE 
1554 οσοι 
1545 οσο 
1566 οσο» 
1567 7 
1568 οσο 
1569  CCOB 
1571  CCOC 
1572  CCOC 
1573  CCOF 
1574 61 
1575  CC14 
15976  CC16 
1577  CC16 
1578 7 
1979 0 
1580 CCIC 
1581 CCIE 
1582 0 
1983  CC21 
1564 3 
1585  CC25 
1584 οσα 
1587  CC28 
1588  CC2AÀ 
1589  CC2C 
1590 0ئ‎ 
1591  CC2F 
1593 CC30 
1594 GC30 
1595 2 
1596  CC34 
1577 CC37 
1538 CCI? 
1599: 7۶77 
1600 CLS 
1601 CCIE 
1602  CC40 
1603 CC41 
1604 3 


1605 3 


AD 
09 
8D 
Ab 


A? 
09 
8D 
A6 


20 
EO 
FO 
DO 


AS 


OA 
03 


F3 
06 


AF 


03 


F6 


90 
12 
3E 
Q6 


11 
OA 
o3 
F6 


06 


43 


D7 


43 


43 


43 
DS 


D8 


43 


D8 


LINE 


å 


i 
SETRH 


85 


SETR3 


SETR6 


; READ 
READS 


READS1 


READSS 
READS3 


READ10 


READ15 


LDA 
BPL 
RTS 


LDA 
EDR 
STA 
LDA 
STA 
L.DA 
JSR 
DEC 
BMI 
DEC 
BPL 
INC 
RTS 


SECTOR 
CPYTRK 


DRYNUM 
#1 

CMD 
#10 
TEMP+2 
TEMP+2 
SETH 
SECTOR 
SETR& 
TEMP+2 
SETRI 
TEMP+2 


TEMP+2 BLOCKS IN 


LDA 
ORA 
STA 
LDX 


LDA 
JSR 


CPX 
BEQ 
INX 
BNE 
LDX 


JSR 
CPX 
BEG 
INX 
BNE 
RTS 


CMD 
BREAD 
CMD 
TEMP+2 


CMD 
SETJOB 


#10 
READSS 


READS1 
TEMP +2 


WATJOB 
#10 
READIS 


READS3 


; WRITE TEMP+2 BUFFERS QUT 


WRITES 


WRITO 


WRIT30 


WRITS 


LDA 
ORA 
STA 
LD X 


JSR 
CPx 
BEG 
INA 
BNE 


LDX 


#WRITE 
DRVNUM 
CMD 

TEMP+2 


SET JOB 
#10 

WRITS 
WRITO 


TEMP+2 


DUPLICATE 

LINES LOC 

15606  CC45 
1607  CC45 
1608 48 
1609 CC4A 
1610 CC4C 
1611  CC4D 
1612 4 
1614 CC50 
1615 0 
1616 0 
1617 0 
1618 CcCSe2 
1619 3 
1620 8 
1621 CCSB 
1622 CCSE 
1423 1 
1624  CC64 
1625 CC67 
1624 CCGA 
1627  CC&àB 
1628 CCAD 
1629 CCAD 
1530 CC&F 
1631  CC72 
1632 74 
1633  CC76 
1634 9 
1635  CC7C 
1636  CC7E 
1637 0.010 
1638  CCE2 
1639  CC84 
1640 CCBA 
1641 7 
1442 CCEA 
14643 CCBA 
1644 CCBA 


1445 


CCGA 


+ =" مم .= 


eo 
EO 
FO 
EB 
DO 
60 


D9 


10 
10 


EE 


LINE 


WRIT10 
JSR 
WRITIS CPX 
BEQ 
INX 
BNE 
WRIT20 RTS 


; TRANSFER 
i & START 
FORMAT 
LDY 
FMT102 LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
INY 
BNE 
FMT104 
LDA 
JSR 
LDA 
ORA 
STA 
FMT109 LDA 
BMI 
CMP 
BEQ 
LDA 
LDX 
JMP 
FMT110 RTS 


. 
3 


. END 


WAT JOB 
#10 
WRIT2O 


WRITIO 


FORMAT CODE TO BUFFER 0 
CONTROLLER FORMATTING 


#0 

CODE, Y 
FBUFS, Y 
CODE-*$100, Y 
FBUFS*$100,Y 
CODE+$200, Y 
FBUFS+$200, Y 
CODE+$300, Y 
FBUFS-* $300, Y 


FMT102 


#0 
SETH 
DRVNUM 
EXEC 
JOBS 
JOBS 
م۳٣‎ 103 
#1 
FMT110 
#3 

HO 
ERROR 


. LIB COPYSETUP 


DISK COPY 

LINE LOC 

1647 4 
1648 CCBA 
1649 CCBA 
1680 6 
1651 CCBA 
1652 CCBA 
1693 CCED 
1654 CCBF 
1655 ۴ج‎ 
1656 οσο 
1657  CC92 
1658  CC94 
1659 ٤ 
1660 CCF? 
i661  CC9C 
1642  CC9D 
1663  CCAO 
1664  CCA2 
1665 CCAS 
1666  CCA6 
1667 CCA? 
1668  CCAC 
1669  CCAC 
1670  CCAF 
1671  CCB2 
1672 3 
1673 7 
1674 . CCB9 
1675  CCBC 
1676  CCBF 
1677  CCC1 
1678  CCC3 
1679 CCCS 
1680  CCC8 
1681 CCC? 
1682 cccc 
1683  CCCF 
1684  CCD1 
1685 4 
1686  CCD7 
1687  CCD9 
16908 58 
1689  CCDE 
1670 CCDE 
1691  CCDE 
1692  CCEO 
1693 CCES 
1894  CCES 
1655 CCE? 
1676  CCEA 
1697 CCED 
1698  CCFO 
1699  CCF2 
1700 CCF4 


1701 


CCFS 


20 


DO 


20 


B3 
1D 


DE 


24 
27 
7D 
00 


76 
O1 
79 


C4 


CC 


43 
43 


43 


43 


43 
CD 


C4 


CS 
43 


43 
43 


43 


43 
CD 


4م 
43 


CD 


9م 


C4 
43 
Có 


LINE 


DSKCPY CHECK FOR TYPE 
AND PARSES SPECIAL CASE 


DSKCPY 


DX0000 
ΡΧΟΟΟ» 


DXOO10 


DX0020 


PRSEG 


7۴0015 


ΧΟΟΞΟ 


JSR 
BNE 


JSR 


LDA 
LDX 
STX 
STA 
INX 
STX 
LDX 
STX 
INX 
STX 
JMP 


JSR 
JSR 
LDA 
AND 
BNE 
LDX 
LDA 
CMP 
BNE 
LDX 
STX 
INX 
STX 
JMP 
LDA 
JMP 
LDA 
AND 
BNE 
JMP 


LDA 
JSR 
BNE 
LDA 
JMP 
LDA 
JSR 
BMI 
STA 
DEY 
DEY 


PRSCLN 
DX0000 


PRSEG 


وین 
#39 
FILTBL+1‏ 
CMDBUF, X‏ 


CMDSIZ 
#1 
F1CNT 


F2CNT 
MOVLP2 


TC3O0 
ALLDRS 
IMAGE 


11141 


DX0020 
FILTBL 
CMDBUF, X 
HA 
DX0020 
#1 

F1CNT 


۲27 
CPYDTD 
#BADSYN 
CMDERR 
IMAGE 


#%11011001 


DXOO10 
COPY 


# ‘= 
PARSE 
ΧΟΟΖΟ 
#BADSYN 
CMDERR 
CMDBUF, Y 
TSTOV1 
XOO15 
FILDRV+1 


¿FIND ":" 


; CPY ALL 
; PUT AT BUFFER END 


; PLACE κ 


; SET UP CNT'S 


; ENTER ROUTINE 

; NORMAL PARSE 

; PUT DRV'S IN FILTBL 
; GET PARSE IMAGE 
; MAL FOR PATT COPY 


; MUST BE CONCAT OR NORMAL 
i CHA FOR * 


; SET CNT'S 


; GO COPY 
; SYNTAX ERROR 


; CHK FOR NORMAL 


; SPECIAL CASE 


i SRC DRV 


DISK COPY 
LINES LOC 
1702  CCF6 
; 1703 CCF? 
1704 CCFC 
1705 CCFE 
1706 0 
1707 02 
1708  CDO4 
1709 CDOS 


1710 


CDOS 


a,‏ 4 =“ = م 


LINE 


LDA CMDBUF,Y 
JSR TSTOV1 
BMI 5 
CMP FILDRV+1 
BEG XOO15 
STA FILDRV 
RTS | 

. END 

.LIB COPYALL 


i CANNOT BE EQUAL 


: BEST DRV 


.- 


COPY ALL... 
LINER LOC 
1712 CDOS 
1713 CDOS 
1714 CDOS 
1715 CDOS 
1716 86 
1717 424 
1718  CDOC 
1719 SDOF 
1720 CD12. 
1721  CD13 
1722  CD14 
1723  CD17 
1724 CDIA 
1725  CD1C 
1726 06 
1727  CD21 
1728  CD24 
1729 7 
1730 464 
1731  CD2C 
1732 5 
1733 85 
1734 CD2F 
1735  CD32 
1736  CD33 
1737 CD36 
1738 CD37 
1739  CD3A 
1740 CD3B 
1741 83 
1742  CDS3F 
1743 CD42 
1744  CD43 
1745 6 
1746 7 
1747 ۸۵ 
1748  CD4B 
1749  CD4E 
1750 ع4‎ 
1751 CDS} 
1752 4 
1753 6 
1754 7 
1755 CDS? 
1756  CDSC 
1757  CDSD 
17958  CD60 
1759. 1 
1760 4 
i761  CDé65 
i742  CD68 
1763 CD49 
1764 CDAC 
1765 CDAD 


1766 


CD70 


7D 
04 
28 
76 
76 
00 


04 
FA 


96 
A7 


eD 
28 


7D 


95 


97 


96 


91 


94 


8F 


A7 


03 
66 


OF 


94 


91 


96 


97 


99 


43 


43 
43 


43 
43 


43 
43 
43 
43 
43 
43 
43 
43 


CD 
C7 


C4 


43 


43 
43 
43 


43 


LINE 


i 


; COPY 


4 ۰ 

CPYDTD 
MOVLP 1 
MOVLP2 


i 
EXLPO 


EXLP1 


ENDIT 


FIXIT 


DISK TO DISK ROUTINES 
FILTBL+1 ; SAVE IN TEMP 
TEMP 
#40 
CMDSIZ 
CMDSIZ 


LDA 
STA 
LDY 
LDX 
STY 
DEY 
DEX 
LDA 
STA 
CPX 
BNE 
STY 
JSR 
JSR 
JSR 
BPL 
BMI 


; 40 CHAR BUFFER 
; PREP TO MOVE 
;END OF FILENAMES 


CMDBUF, X ; MOV FN LIFO 
CMDBUF, Y 
TEMP 
MOVLP 1 
FILTBL+1 
OPTSCH 
PUPS1 
FFST 
FIXIT 
ENDIT 


; ACTUAL F2 VAL 
; POINTER TO F2 


; SETUP FIRST PASS 
; FIRST MATCH 

; ENTRY FOUND? 

; NO 

PLA ; PULL NEEDED VARS 
STA 
PLA 
STA 
PLA 
STA 
PLA 
STA 
PLA 
STA 
PLA 
STA 
PLA: 
STA 
PLA 
STA 


DIRSEC 


FILTBL+1 


LSTBUF 


FILGNT 


INDEX 


FOUND 


DEL IND 


DRVFLG 


JSR 
JSR 
BPL 
JMP 


LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 


PUPS1 
FFRE 
FIXIT 
ENDCMD 
DRVFLG 
DELIND 
FOUND 
INDEX 
FILCNT 


LSTBUF 


; SET UP VARS 
; NEXT MATCH 
; FOUND ONE? 

; NO! SO BYE 


; PUSH NEEDED VARS 


COPY ALL. ..... PAGE 0044 


LINER LOC CODE LINE 

1767  CD71 AD 7D 43 LDA FILTBL+1 

1768 CD74 48 PHA 

1749 CD75 AD 92 43 LDA DIRSEC 

1770 CD78 48 . PHA 

1771 CD79 i 

1772 CD79 20 97 CD EXLP2 JER TRFNME i TRANSFER NAME 
1773 CD7C AG Ol LDA #1 i FAKE OUT LOOKUP 
1774 οτε BD 79 43 STA 7۲ 

1775 CD81 8D 7A 43 STA F2CNT 

1776 CD84 20 1B C7 JSR LOOKUP 

1777 CDS7 A? Οἱ LDA #1 

1778 CDG? 8D 79? 43 STA F1CNT 

1779  CD8C A? O2 LDA #2 ; REAL 

1780 CDSE BD 7A 43 STA F2CNT 

1781 CD91 20 16 CE | JSR CY ; COPY IT 

1782  CD94 ας ΞΕ CD JMP EXLPO i NEXT ONE FOLKS 
1783  CD97 j 

1784  CD97 ; TRANSFER NAME (DIRBUF) TO CMDBUF 
1785  CD97 i 

1786  CD97 AQ O3 TRFNME LDY 3 ; BOTH INDEXES 
1787 CD9? BC 7C 43 STY FILTBL ; BEGINING OF FILENAME1 
1788 CD9C Bi 27 TRFO LDA (DIRBUFDY iMOVE IT 

1789 CD9E 299 00 43 STA CMDDBUF, Y 

1790 01 8 INY 

1791 CDA2 CO 13 CPY #19 ; ALL 16 CHARS PASSED? 
1792 CDA4 DO Få BNE TRFO 

1793 CDA& 40 RTS 

1794  CDA7 i 

1795 7 ; SET UP SUBROUTINE 

1796 7 i 

1797 CDA7 A? OO PUPS1 LDA 0 

1798 CDA? 8D BE 43 STA DRVCNT 

1799 CDAC 8D 82 43 STA FILTRK 

1800 CDAF 8D 83 43 STA FILTRK+1 

1801 CDE2 AS 1 LDA FILDRV+1 i GET DRIVE NUMBER 
1802 CDB4 29 Οἱ AND 1 ; ONLY 

1803 CDE6 85 15 STA DRVNUM 

1804 CDBB OG Οι GRA 1 

1805 CDBA BD 93 43 STA DELSEC ; NONZERO 

1806 CDBD AD 7D 43 LDA FILTBL+i ;FNI=FN2 

1807 CDCO BD 7C 43 STA FILTBL 

1808 ους» 60 RTS 

1909  CDC4 i 

1810  CDC4 . END 


1811 4 | .LIB RENAME 


--- 


ie μας 


LINE# 


1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1636 
1857 
1858 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
18537 
1858 
1859 
1860 
1861 
1842 


1864 
1845 
1866 
1867 


ov c ع‎ 


LOC 


CDC4 
CDC4 
CDC 4 
CDC4 
CDC7 
CDCA 
CDCC 
CDCE 
CDCE 
CDDO 
CDD2 
CDD4 
CDD 4 
CDD& 
CDRS 
CDDA 
CDDA 
CDDC 
CDDE 
CDEO 
CDEO 
CDES3 
CDES 
CDEB 
CDEB 
CDEB 
CDEE 
CDFO 
CDF2 
CDF4 
CDF4 
CDF6 
CDF9 
CDF9 
CDFB 
CDFD 
CDFF 
CEO 
CEOS 
CEOS 
CEOB 
CEOA 
CEOD 
CE10 
CE10 
6.13 
CE16 
CELS 
CE16 
CELS 


CE1? 
CE1B 
0ا61‎ 
CEIF 


CODE 


20 
AD 
c9 
90 


AS 
Co 
DO 


AS 
DO 
AS 
DO 
20 
A? 
85 
20 
20 
FO 


c9 
DO 


10 


90 


18 
81 


PAGE 0049 


CE 


43 
CE 


D4 


C4 


CE 
C4 


CE 
C4 


CF 


D7 


LINE 


; COPY FILE(S) TO ONE FILE 


COPY 
JSR 
LDA 
CMP 
BCC 


LDA 
CMP 
BNE 


LDA 
CMP 
BNE 


LDA 
CMP 
BNE 


JSR 
LDA 
STA 
JSR 


JSR 
BEG 
CMP 
BNE 
COPO1 
LDA 
JSR 
COPOS 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LOX 
JSR 
JMP 


JER 
JMP 


LDA 
AND 
STA 
JSR 


i FILENAMES, OPTIMIZE 
LOOKUP ; LQOK IP ALL FILES 
F2CNT 
#3 
COP10 


FILDRV 
FILDRV+1 
COP10 


ENT IND 
ENTIND+1 
COP 10 


ENTSEC 
ENTSEC+1 
COP10 


CHAIN ; CONCAT 
#1 

F2PTR 

OP IRFL 


TYPFIL 
COPO1 
#PRGTYP 
COPOS 


#MISTYP 
CMDERR 


#IWSA 

SA 
LINTAB+IRSA 
LINTAB+IWSA 
HEFF 
LINTAB+IRSA 
APPEND 

#2 

CY10 

ENDCMD 


ΟΥ 
ENDCMD 


CHKIO ; CHECK FILES FOR EXISTENCE 


FILDRV 

#1 

DRVNUM 

OPNIWR ; OPEN INTERNAL WRITE CHNL 


COPY...... PAGE 0046 


LINES LOC CODE LINE 
18608 CE22 20 FB D? JSR ADDFIL ; ADD TO DIRECTORY 
1869  CE25 AE 79 43 LDX 7 
1871  CE28 BE 7B 43 CY10 STX F2PTR ; SET UP READ FILE 
1872 CE2ZB 20 54 CE JSR OPIRFL 
1873 CE2E A? 08 LDA HEDISND 
1874 CE30 85 AA STA EOIFLG 
1575 CES2 4C 38 CE JMP CY20 
1876 CESS ۸۳١٩5 

1877 CE35 20 27 83 JSR PIBYTE 
1878 CESS ΟΥΖΟ 

1879 CES 20 94 CE JSR GIBYTE 
1880 CE3B A? 80 LDA #LRF 
1881 CE3D 20 E7 ES JSR TSTFLG 
1882 CE40 FO F3 BEG CY15 
1883 CE42 j 

1884 CE42 20 9C D4 JGR TYPFIL 
1885 CE45 FO 03 BEG CY30 
1886 >7 j 

1887 CE47 20 27 D3 JSR PIBYTE 
1888 CE4A CY30 

1889  CE4A AE 7B 43 LDX F2PTR 
1890 تع‎ ` i 

1891 CE4D EB INX 

1892  CE4E EC 7A 43 CPX F2CNT 
1893 CES1 90 DS BCC CY10 ; MORE FILES TO COPY 
1894 53ع‎ AG 12 LDA #IWSA 
1895 CESS 85 16 STA SA 

1896 57ج‎ 4C 3A 93 JMP CLSCHN ; CLOSE COPY CHANNEL, FILE 
1897 ۵۸۵ i 

1898  CESA OPIRFL i 

1899  CESA AE 7B 43 LDX F2PTR 
1900 CESD B5 90 LDA FILDRV, X 
i901 CE5F 29 O1 AND #1 

1902 CE61 85 12 STA DRVNUM 
1903 CEé3 AD 46 FB LDA DIRTRK 
1904 CE66 85 13 STA TRACK 
1905 CE48 25 86 LDA ENTSEC, X 
i906 CE6A 85 14 STA SECTOR 
1907 CE&C 20 71 D7 JSR OPNIRD 
1908 CEAF AE 7B 43 LDX F2PTR 
1909 CE72 BS 88 LDA ENTIND, X 
1910 CE74 20 C6 D7 JSR SETPNT 
1911 CE77 AE 7B 43 LDX F2PTR 
1912 CE7A B5 95 LDA PATTYP, X 
1913 CE7C 29 O7 | AND #TYPMSK 
1914 CE7E 865 CF STA TYPE 
i915 CERBO i 

1916 CEBO ΑΦ OO LDA 0 

1917 CEE2 BD 4D 43 STA REC 

1918 CESS 20 DD El JSR OPREAD 
1919 CESS AO 01 LDY #1 

1920 CEBA 20 9C D4 JSR TYPFIL 
1921 CESD FO ΟἹ BEG 0 


1922 CESF 8 INY 


1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1731 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 


s». > 


LOC 


CE?O 
CE9O 
CE?1 
CE94 
CE?4 
CE?4 
GETS 
CES 
Ε.Β 
6۵ 
CE?B 
CE9D 
CEFF 
CEAI 
CEA 
CEAS 
CEA7 
CEA7 
CEAA 
CEAC 
CEAC 
CEAE 
CEB1 
CEBİ 
CEB2 


CODE 


98 
40 


A? 
85 


85 
^6 
BS 
27 
85 
DO 


20 


FO 


AG 
20 


60 


Có 
il 
16 
ΘᾺ 
18 
15 
2م‎ 
09 
OA 


9C 
05 


80 
D8 


PAGE 0047 


D7 


Dó 


D4 


ES 


LINE 


0 0 


i 
GIBYTE 


GCBYTE 


GIB2O 


TYA 
JMP 


LDA 
STA 


JSR 


STA 
LDX 
LDA 
AND 
STA 
BNE 


JSR 
BEG 


LDA 
JSR 


RTS 


SETPNT 


#IRSA 
SA 


GBYTE 


DATA 
LINDA 
CHNRDY, X 
#EOISND 
EOIFLG 
GIB2O 


TYPFIL 
GIB2O0 


SLRF 
SETFLG 


RENAME..... 
LINES LOC 

i949  CEB2 
1950 9 72 
1951 5 
1952  CEB7 
1753 CEPR? 
19384 CEBB 
1955 CEED 
1956 7۳ 
1957 CECI 
1958  CECS3 
1999  CECÓ 
1960 CEC? 
1961  CECB 
1962 CECD 
1963  CECF 
1964  CED1 
1945 3 
1966 646 
1967 7 
1968  CEDDB 
1969  CEDC 
1970- CEDE 
1971 CEEI 
1972 CEE4 
1973 CEES 
1974 CEES 
1975 CEEA 
1976 CEED 
1977 CEFO 
1978  CEFJ3 
1981 CEFS 
1982 CEFO6 
1983  CEF6G 
1984 ۵ 
1985  CEFA 
1986  CEFC 
1987  CEFC 
1988 CEFF 
1989  CFOO 
1990 CFOS 
1991 CFOS 
1992 CFOS 
1993  CFOA 
1994 CFOC 
1995  CFOF 
1996 ۴ي‎ 
1997 CF10 
1998 Grid 
1999 ی٤ن‎ 
2000  CF13 
2001 4 
2002  CF18 


2003 


CFIA 


PAGE 0048 


CODE 


96 
07 
CF 


76۵ 


79 


82 
F9 
62 
926 


Få 
82 
05 
e3 
96 


CS 


C7 
CF 


ES 


D7 
E7 


43 
C9 
Εό 


08 
C4 


A3 


43 


43 


C4 


GE 


43 


C4 


LINE 


; RENAME FILE NAME IN DIRECTORY 


RENAME JSR 
LDA 
AND 
STA 
CMP 
BEG 
ORA 
STA 
JSR 
JSR 
LDA 
AND 
STA 
LDA 
STA 
JSR 
JSR 
LDA 
CLC 
ADC 
JSR 
JSR 
TAY 
LDX 
LDA 
JSR 
JSR 
JSR 
JMP 


ΕΝΙΟ 


ALLDRS 
FILDRV+1 
#1 
FILDRV+1 
FILDRV 
RN1O 

و0 ٭ 
FILDRV‏ 
LOOKUP‏ 
CHKID‏ 
FILDRV+1‏ 
C‏ #1 
DRVNUM‏ 
ENTSEC+1‏ 
SECTOR‏ 
RDAB‏ 

wAT JOB 
ENTIND+1 


#3 
SETPNT 
GETACT 


FILTBL 
#16 

TRNAME 
WR TOUT 
WATJOB 
ENDCMD 


i SET BOTH DRIVE 5 


i SAME DRIVE 5 
i CHECK BOTH DRIVES FOR NAME 


; LOOK UP BOTH NAMES 
i CHECK FOR EXISTENCE 


i READ DIRECTORY SECTOR 


; SET SECTOR INDEX 
bae. 


; TRANSFER NAME 
: WRITE SECTOR QUT 


; CHECK I/O FILE FOR EXIST 


CHKIN 
LDA 
AND 
STA 


LDX 
DEX 
CPX 
BCC 
LDA 
BNE 
LDA 
JMP 


CK10 


CK2O 
RTS 


CHKID 

JSR 
LDA 
BEG 
LDA 
JMP 


CASS 


PATTYP+1 


#TYPMSK 
TYPE 


F2CNT 


F1CNT 
CK20 


FILTRK, X 


CK10 
HFLNTFD 
CMDERR 


CHIAIN 


FILTRK, X 


CK30 
#FLEXST 
CMDERR 


i IST FILE BEARS TYPE 


; INPUT FILE NOT FOUND 


RENAME 
LINES 
2004 
2005 
2006 


2008 
2009 


LOC 


CF1D 
CF1E 
CF20 


CF21 
CF21 


PAGE 0049 


CODE 


CA 
10 F3 
60 


LINE 


CK30 


DEX 
BPL 6 5 
RTS 


. END 
.LIB MEMRW 


MEM-RD, WRTT. ..... PAGE 0050 


LINES LOC CODE LINE 

2011 3 ; MEMORY ACCESS COMMANDS 

2012 1ں‎ i "—" MUST BE 2ND CHAR 

2013 CF21 AD O1 43 MEM LDA CMDBUF+1 

2014 CF24 C9 2D CMP 8΄- 

2015 CF26 DO 4B BNE MEMERR 

2016. CF28 i | 

2017 CF28 AD 03 43 LD& CMDBUF+3 ; SET ADDRESS IN TEMP 
2018 CF2B 85 O4 STA TEMP 

2019 CF2D AD 04 43 LDA CMDBUF+4 

2020 CF30 85 05 STA TEMP+1 

2021 CF32 i 

2022 CF32 AQ OO LDY £O 

2023 CF34 AD O2 43 LDA CMDBUF+2 

2024 CF37 ο, 52 CMP 85 

2025 CF3? FO OE l BEG MEMRD ; READ 
2026 CF3B 20 39 FB JSR KILLP : KILL PROTECT 
2027 CFSE C? 7 CMP $ لا‎ 

2028 CF40 FO 36 BEQ MEMWRT i WRITE 
2029 CF42 C9 45 CMP #°E 

2030 CF44 DO 2D BNE MEMERR ; ERROR 
2031 CF46 i EXECUTE 
2032 CF46 4C 04 OO MEMEX JMP (TEMP) 

2034 CF49 MEMRD 

2035 CF49 Bi 04 LDA (TEMP), Y 

2036 CF4B 85 18 STA DATA 

2037 CF4D AD 76 43 LDA CMDSIZ 

2038 CF50 C? 06 CMP πό 

2039 CFS2 90 19 BCC 0 

2040 CF34 i 

2041 CF54 AE 05 43 LDX CMDBUF+5 

2042 CF57 CA DEX 

2043 CF58 FO 13 BEG M3O 

2044 CFIA 8A TXA 

2045 CFSB 18 CLC 

2046 CFSC 65 04 ADC TEMP 

2047 CFSE Eó 04 INC TEMP < 

2048 CF60 85 CE STA LSTCHR--ERRCHN 

2049 CF62 AS 04 LDA TEMP 

2050 CF64 85 47 STA CB+2 

2051 CF56 AS 05 LDA TEMP+1 

2052 CF48 85 48 STA CB+3 

2053 CF&A 4C 40 7 JMP GE20 

2054 1۵ M30 

2055 ٥٣ 20 64 D4 JSR FNDRCH 

2056 CF70 4C 37 D7 ۱ JUMP GELS 

2056 CF73 AG 31 MEMERR LDA #BADCMD : BAD COMMAND 
2059 CF75 40 96 C4 JMP CMDERR 

2061 CF78 MEMWRT ; WRITE 
2062 CF78 B9 οὐ 43 M10 LDA CMDBUF+6, Y 

2063 CF7B 91 04 STA (TEMP), Y ; TRANSFER FROM CMDBUF 
2064 CF7D 8 INY 


2065 CF7E CC 05 43 |. CPY CMDBUF+5 ;* OF BYTES TO WRITE 


MEM-RD, WRTT 


LINER LOC 

2066  CFB81 
2067  CF83 
2059 CF84 
2070 ۶۹ 


CODE 


90 F5 
60 


0051 
LINE 
BCC M10 
RTS 
. END 


.LIB BLOCK 


BLOCK 


LINES 


2072 
2073 


2075 
2076 
2077 


2079 
20530 
2081 
2052 


2083 


2085 
2086 


2068 
2089 
2090 
2071 
2092 
2093 
2094 
2095 
2074 
2097 
2098 


NA PAGE 0052‏ رہ 


COMMAND. . 

LOC CODE 
CF84 

CF84 

CF84 AC O1 43 
CFE7 CO 30 
CF89 DO ۳ 
CFEB AG EA 
CFED 85 OO 
CFSF A? FF 
CF91 85 O1 
CF93 60 

CF94 20 FA CF 
CF97 4C 66 C4 
مج‎ 88 

CFSB 78 

CF9C 29 OF 
CFSE OA 

CF9F AB 

CFAO B1 OO 
CFA2 85 04 
CFA4 CB 

CFAS B1 OO 
CFA7 85 OB 
CFA? 4C OA OO 


LINE 


i ROM 1.1 ADDITIONS 
COMMANDS 


; USER 


USER 


USRINT 


US10 


USREXC 


LDY 
CPY 
BNE 


LDA 
STA 
LDA 
STA 
RTS 


JSR 
JMP 


DEY 
TYA 
AND 
ASL 
TAY 
LDA 
STA 
INY 
LDA 
STA 
JMP 


CMDBUF+1 
8Ο 
190 ; O RESETS PNTR 


SET DEFAULT BLOCK ADD‏ : انا ٭ 
USR JMP‏ 

#>UBLOCK 

USRUMP +1 


USREXC i EXECUTE CODE BY TABLE 
ENDCMD 


i ENTRY IS(((INDEX-1)ANDSF) 


HEF 
A 


(USRJMP ) Y 
IP ' 


(USRJMP ۷ 
180+1 
(IP) 


BLOCK COMMANDS 


LINER LOC 

2100 CFAC 
2101 CFAC 
2103 CFAC 
2104 CFAC 
2105 ΕΕΔΕ 
2106 1 
2107 CFB4 
2108 CFES 
2110  CFB7 
2111 CFB? 
2112  CFBC 
2114 CFBF 
2115 CFC1 
9117 ۶۹ 
2118 ος 
2119 CFC? 
2120 CFCC 
2151  CFCE 
2123  CFDO 
2124  CFD2 
2125 4 
2126 CFDS 
2128 CFD? 
2129  CFD7 
2130 CFD? 
2131 0۵ 
2132 ٤0 
2134 CFDE 
2135  CFEO 
2136  CFEJ 
2127 ΟΕΕ» 
21398 ٣7 
2139  CFEA 
214i CFEC 
2142  CFEE 
2143  CFFi 
2144 ۵ 
2145 ی٤‎ 
2146  CFF9 
2148 CrFC 
2149 CFFE 
2150 DOO1 
2151 3 
2152 90065 
2153 8 


2154 


DOO? 


CODE 


AD 


AE 
CA 
DO 


AGF 
20 
4C 


جم 
4C‏ 


ΑΟ 
20 
AE 
EO 
BO 


A9 
85 


38 


20 
12 


76 


OD 


O1 
39 
OE 


70 
96 


01 
97 
87 
OC 
EF 


00 
04 
05 


04 
05 


43 


43 


035 


DO 


c4 


DO 
43 


43 


43 


43 
43 


43 


43 


DS 


43 


PAGE 0053 


LINE 


; OPEN DIRECT ACCESS BUFFER 


; FROM GPEN 


0۴۲۲۳۶ 


OBOS 


0B10 


OR i 5 


LDA 
STA 
LDX 
DEX 
BNE 


LDA 
JSR 
JMP 


LDA 
JMP 


LDY 
JSR 
LDX 
CPX 
BCS 


LDA 
STA 
STA 
SEC 


ROL 
ROL 
DEX 
BPL 


LDA 
AND 
BNE 
LDA 
AND 
BNE 


LDA 
ORA 
STA 
LDA 
ORA 
STA 


LDA 
JSR 
LDX 
LDA 
STA 
TAX 
LDA 


fig 


LSTDRV 
DRVNUM 
CMDS1Z 


OB10 
#1 


GETRCH 
0530 


#NOCHNL. 


CMDERR 


#1 
BPOS 
FILSEC 


#BAMJOB 


0005 


HO 
TEMP 
TEMP+1 


TEMP 
TEMP+1 


0815 


TEMP 
BUFUSE 
οπου 
TEMP+1 


BUFUSE+1 


OBOS 


TEMP 

BUFUSE 
BUFUSE 
TEMP+1 


BUFUSE+1 
BUFUSE+1 


so 
GETRCH 
LINDA 
FILSEC 
BUFO, X 


DRVNUM 


; GET ANY BUFFER 


i BUFFER # IS REGUESTED 


i MUST BE LESS THAN 13. 


i BUFFER IS VSED 
i BUF IS USED 
i SET BUFFER AS USED 


; SET UP CHANNEL 


BLOCK COMMANDS. ..... PAGE 4 


LINES LOC COPE LINE 

2155 DOOB 9D 50 43 STA LSTJOB, X 

2157 DOOE Ab 16 0830 LDX SA. 

2158 DOO BS AC LDA LINTAB,X SET LINDX TABLE 

2159 DO12 OG 40 ORA #$40 

2180 DO14 95 AC STA LINTAB, X 

2162 DOi A4 15 LDY LINDX 

2163 DO18 A? FF LDA #$FF 

2184 ΠΟΙΑ 99 C7 OO STA LSTCHR, Y 

2166 DOID A9 89 LDA #RNDRDY 

2157 DOIF 99 A2 OO STA CHNRDY, Y i SET CHANNEL READY 
2189 DO22 BY 49 OO | LDA BUFO, Y 

2170 DO25 99 BF OO STA CHNDAT,Y  ; BUFFER & AS 1ST CHAR 
2171 DO28 OA ASL A 

2172  DO29 AA TAX 

2173 DO2A AG O1 LDA 1 

2174 DO2C 95 29 STA BUFTAB, X 

2175 DO2E A? OE LDA #DIRTYP+DIRTYP 

2176 DO30 99 9A 00 STA FILTYP,Y  iSET DIRECT FILE TYPE 


2177 9033 4C 66 C4 JMP ENDCMD 


BLOCK 


LINE 


2179 

2180 
2181 
2162 


. 2183 


2164 


2186 
2187 


2189 
2190 


2192 
2193 


2175 
2196 
2197 
2198 
2199 
2200 
2201 


2203 
2204 
2205 
2206 
2207 


2209 
2210 
2211 
2212 
22123 
2214 
2219 


2217 


2219 
2220 


2222 


2223 
2224 


-- 
222 


mon 
ao. — 


2227 


2229 


2230 


2231 


2232 


2233 


COMMANDS 
LOC CODE 
DOSE 

DO36 AO OO 
boss A2 00 
DOSA A? 2D 
DOSC 20 36 
Do3F DO OA 
DO4i A? 31 
D043 4C 96 
DO46 A9 3O 
048ئ0‎ 4C 76 
DO4B BA 
DO4C DO FB 
DO4E A2 05 
DOSO B? OO 
0053 DD 78 
DOS& FO 05 
DOS8 CA 
DOS? 10 8 
DOSB 30 E4 
DOSD 

DO5D 84 
DOSE OG 80 
DO60 8D 3B 
ΡΟ63 20 BA 
D066 AD 3D 
DOE? OA 
DOGA AA 
006 BD 7F 
DOE 85 5 
DO7O BD 7E 
DO73 85 04 
DO75 ὀς 04 
DO78 41 46 
DO7E 

DO7E 19 D1 
DOSO 10 Di 
bose 6C Di 
DOBA 89 Di 
10608868 BB Di 
DORE DS Di 
DOSA AO 00 
DOSC ἀξ OO 
DOBE AG 34 
0090 20 36 
DOSS DO O2 


ه » و * = * 


Co 


C4 


C4 


43 
DO 


43 
DO 
43 


00 


00 


00 


C5 


PAGE 0055 


LINE 


; BLOCK COMMANDS 


BLOCK 


BLK 10 
BLK30 


8-0 


BLKSO 


2-0 


BCTAB 
NBCMDS 


BCJUMP 


BLKPAR 


LDY 
LDX 
LDA 
JSR 
BNE 


LDA 
JMP 


LDA 
JMP 


TXA 
BNE 


LDX 
LDA 
CMP 
BEG 
DEX 


BPL 


BMI 


TKA 
DRA 
STA 
JSR 


LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 


JMP 


. BYT 


HO 
KO 
1 سه‎ 
PARSE 
BLK40 


#BADCMD 
CMDERR 


#EADSYN 
CMDERR 


8-0 


HNBCMDS-1 
CMDEUF, Y 
BCTAB, X 
BLK&O 


BLKSO 
BLK10 


it$80 
CMDNUM 
BLKPAR 


CMDNUM 
Å 


BCUMP+1, X 
TEMP+1 
BCJMP, X 
TEMP 

( TEMP ) 


'AFRWEP ' 


—4—BCTAB 


. WORD BLKALC 
. WORD BLKFRE 
. WORD BLKRD 
. WORD BLAWT 
. WORD BLKEXC 
. WORD BLKPTR 


LDY 
LDX 
LDA 
JSR 
BNE 


HO 

#0 
HF: 
PARSE 
BPOS 


; "=" SEPARATES CMD FROM SUBCMD 
i LOCATE SUB-CMD 


; FIND COMMAND 


i PARSE PARMS 


i 6010 COMMAND 


; BLOCK-ALLOCATE 
i BLOCK-FREE 
; BLOCK-READ 
i BLOCK-WRITE 
; BLOCK-EXECUTE 
; BLOCK—-POINTER 


; PARSE BLOCK PARMS 


i FOUND ":" 


BLOCK 


LINES 


2235 
2236 
2237 
2238 


2240 
2241 


2243 
2244 


2246 
2247 
2248 


2252 
2253 
2254 
2299 
2256 


2260 
2261 
2242 
2263 - 
2254 
2255 
2266 


2268 
2269 
2270 
ea7i 
2272 
2273 


2275 
2276 
2277 
2278 
2279 
2260 
2281 


2222 


2283 
2254 
2285 
2287 
2288 
2289 


COMMANDS 
LOC CODE 
50+5 AO 03 
DO97 BY 00 
م005۵‎ C? 20 
DO9C FO 08 
DO9E C9 1D 
DOAO FO 04 
DOA2 C9 2C 
DOA4 DO O7 
DOAS CB 
DOA7 CC 76 
DOAA 90 EB 
DOAC ٥ 
DOAD 20 BC 
DOBO EE 79 
DOB3 AC 7B 
DOB& EO 04 
DOBS 90 EC 
DOBA BO 8A 
DOBC 

DOBC 

DOBC 

DOBC AG OO 
DOBE 85 4 
DOCO 85 05 
DOC2 85 07 
DOC4 A2 FF 
DOCS BY OO 
Doc? C9 40 
DOCB BO 18 
DOCD C9 30 
DOCF 90 14 
DODI 29 OF 
DOD3 8 
DOD4 ۵5 05 
DODA 85 06 
DODS AS 04 
DODA 85 O5 
DODC 68 
DODD 85 04 
DODF CB 
DOEO CC 76 
DOE3 90 El 
DOES 8C 7B 
DOES 18 
DOE? Ag OO 


. E * . 


43 


43 


DO 


43 


43 


43 


43 


PAGE 0056 


LINE 


LDY 
BPOS LDA 
CMP 
BEG 


CMP 
BEQ 


CMP 
BNE 


BP10 INY 
CPY 
BCC 


RTS 


BP20 JSR 
INC 
LDY 
CPX 
BCC 


BCS 


#3 ; ELSE CHAR #3 IS BEGINNING 
CMDBUF, Y 

# ° 

BP 0 


#29 i SKIP CHARACTER 
BP10 


# °, 
BP20 


CMDSIZ 
BPOS 


i THAT'S ALL 


ASCHEX 
F1CNT 
F2PTR 
HMXFILS-1 
BP10 


8-0 ; BAD SYNTAX 


; CONVERT ASCII TO HEX (BINARY) 


; & STORE 
i . Y= PTR 
ASCHEX LDA 
STA 
STA 
STA 


LDX 
AH10 LDA 
CMP 
BCS 
CMP 
BCC 


` AND 
PHA 
LDA 
STA 
LDA 
STA 
PLA 
STA 
INY 
CPY 
BCC 


AH20 STY 
CLC 
LDA 


CONVERSION IN TABLES 
INTO CMDBUF 

#0 

TEMP 

TEMP+1 

TEMP +3 


ΒΓΕ 
CMDBUF, Y 
840 i 
AH2Q ; NON-NUMERIC TERMINATES 
+8 0ات‎ 

AH20 ; NON-NUMERIC 


; TEST FOR DEC st 


HEF 


TEMP+1 : SHIFT DIGITS (#10) 
TEMP+2 

TEMP 

TEMP+1 


TEMP 


CMDSIZ 
AH10 ; STILL IN STRING 


FePTR iCONVERT DIGITS TO... 
i... BINARY BY DEC TABLE 
#0 


BLOCK 


LINER 


2291 
2272 


2293 


2275 
2276 
2297 


2299 
2300 


2302 
2303 
2304 


2306 
2307 
2308 
2309 
2310 
2311 


2322 


2314 
2314 
2314 


2316 . 
2317 
2318 
2317 


2521 
2322 


2324 
2325 
2326 
2327 
2328 
23297 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 


2339 


2340 
2341 
2342 
2343 


COMMANDS 
LOG CODE 
DOEB 8 
DOEC EG 03 
DOEE BO OF 
DOFO B4 04 
DOF2 88 
DOF3 30 ٤ 
DOFS 7D OD 
DoF8 90 FB 
DOFA 18 
DOFB E6 O7 
DOFD DO F3 
DOFF 48 
D100 AE 79 
D103 A3 O7 
09103 9D 82 
D108 68 
D109 9D 87 
DiOC 60 
D1O0D Oi 
D10E OA 
D1OF 64 
D11O 

D110 20 OD 
D113 20 77 
D114 4C 66 
Dii? 

Di19 20 OD 
DiiC 

D1iCG AS 14 
1118 48 
DiiF 20 D4 
D122 FO OB 
Di24 68 
D125 C5 14 
D127 DO 19 
D129 20 AB 
DI2C 4C 66 
Di12F 

Di2F 

48 12با 
D130‏ 

D130 A? 00 
Dice 85 14 
8134 Eó 13 
8136 AS 13 
D138 CD BO 
D13B BO OA 


Di 


43 


43 


43 


De 


C4 


FA 


F8 
C4 


10 


PAGE 0057 


LINE 


۵3۷ INX 
CPX 3 
BCS AH40 


LDY TEMP, X 
ΘΗ35 ΡΕΥ 
BMI 60 


ADC DECTAD,X 
BCC ΔΗΘ35 


CLC 
INC TEMP+3 
BNE 5 


AH40 PHA 
LDX F1CNT 
LDA TEMP+3 
STA FILTRK, X ; STORE RESULT IN TABLE 
PLA 
STA FILSEC,X 
RTS 


DECTAB .BYT 1, 10, 100 ; DECIMAL TABLE 


; BLOCK-FREE 

BLKFRE JSR BLKTST 
JSR FRETS 
JMP ENDCMD 


; BLOCK-ALLOCATE 
BLKALC JSR BLKTST 


BA1O 

LDA SECTOR 

PHA 

JSR GETSEC 

BEG 85 i NONE GREATER ON THIS TRACK 
PLA 

CMP SECTOR 

BNE BA3O ; REQUESTED SECTOR NOT AVAIL 
JSR USEDTS 

JMP 01 


BAIS 
PLA ; POP STACK 
BASO 
LDA #0 
STA SECTOR 
INC TRACK 
LDA TRACK 
CMP MAXTRK 
BCS BA40 : GONE ALL THE WAY 


BLOCK COMMANDS...... PAGE 0058 


LINEH LOC CODE LINE 

2344 20 i 

2345 1398 20 D4 FA JSR GETSEC 

2346 D140 FO EE BEG 0٤0 

2347 D142 BA3O0 

2348 D142 AG 65 LDA #NOBLK 

2349 D144 20 EA EE JSR CMDER2 

2350 7 BA40 

2351 Di47 A? 65 LDA #NOBLK 

2352 D149 20 96 CA JER CHDERR i Tz0, 8-0 : NONE LEFT 
2353 Di4C i 

2355 Di4C i BLOCK READ SUBS 

2356 12146 20 OA De BLARD2 JSR BKOTST ; TEST PARMS 
2357 8014۴ 4C SC 7 JMP DRTRD 

2359 D152 20 Ab D4 GETSIM JSR GETPRE ; GET BYTE W/O INC 
2360 D155 Al 29 LDA (BUFTAB, X) 

2361 D157 60 RTS 

2363 8 ; BLOCK READ 

2364 D158 20 4C 1 BLARD3 JSR 8 282 

2365 5158ص‎ A? OO LDA #0 

2366 DISD 20 Cé D7 JSR SETPNT 

2367 D160 20 52 Di JSR GETSIM i Y=LINDX 
2368 13 

2370 D163 99 C7 00 STA LSTCHR, Y 

2371 8146 A? 89 LDA HRNDRDY 

2372 0168 79 A2 00 STA CHNRDY, Y 

2373 11648 60 RTS 

2374 ن_‎ ٤ BLKRD 

2375 8160 20 58 1 JSR BLKRD3 

2376 8۵816٣۴ 20 EA Dé JSR RNGET1 

2377 D172 4C 66 C4 JMP ENDCMD 

2379 D175 i USER DIRECT READ, LSTCHR=$FF 
2380 5 UBLKRD 

2381 D175 20 8A DO JSR BLKPAR 

2382 D178 20 58 D1 JER BLKRD3 

2383 D17B BY C7 OO LDA ۰۷ 

2384 DI7E 99 BF OO STA CHNDAT, Y 

2385 0181 A? FF LDA 7۳ 

2386 9183 99 C7 OO STA. LSTCHR, Y 

2387 D186 4C 66 C4 JMP 8 ; (RTS) 
23897  D189 ; BLOCK-WRITE 

2390 187ا‎ 20 OA De BLKWT JSR BKOTST 

2392 0188. 20 Eé D7 JSR GETPNT 

2393 DIBF AB TAY 

2394 D190 88 DEY 

2395 D191 ο 02 | CMP #2 

2396 D173 BO O2 BCS BW10 


2397 D195 AO Οἱ LDY #1 


BLOCK COMMANDS...... PAGE 0059 


LINES LOC CODE LINE 

2399 D197 AG OO BW10 LDA #0 : SET RECORD SIZE 
2400 DIS? 20 Có D7 JSR SETPNT 

2401 Di19C 98 TYA 

2402 DIYD ΞΟ 73 D3 JSR PUTBYT 

2403 D1AO0 BA TXA 

2404 DiAl 8 PHA 

2406 DIA? 20 60 D7 Bw2o JSR DRTWRT i WRITE BLOCK 
2407 DIAJ 68 PLA 

2408 DIAG AA TAX 

2409 ΙΑ: 44 15 LDY LINDX 

2410 DIA? 20 EC Dó JSR RNGET2 

2411 DIAC 4C 66 C4 JMP ENDCMD 

2413 17۳ ; UBER DIRCT WRITE, NO LSTCHR 

2414 DIAF 20 84 DO UBLAWT JSR BLKPAR 

2415 DiE2 20 OA D2 JSR 7 

2416 DIB5 20 60 7 JSR ۳۲ 

2417 DIBB 4C 66 C4 JMP ENDCMD 

2419 8 i IN . FILE VECTOR: 

2420 8 i *=$FFFA-6 ; USER DIRECT ACCESS 

242i 8 i UBLOCK . WORD UBLKRD 

2422 113 i . WORD UBLKWT 

2424 DIBB i BLOCK-EXECUTE 

2425 8 BLKEXG 

2426 DiBB 20 39 FB JSR KILLP : KILL PROTECT 
2427 018398 20 4C Di JSR BLKRD2 ; READ BLOCK & EXECUTE 
2428 Di1Ci AG OO LDA 40 

2430 81063 85 04 BEOS STA TEMP 

2431 DicS Ab AB LDX JOBNUM 

2432 10107 BD 04 DB LDA BUFIND, X 

2433 DICA 85 5 STA TEMP+1 

2434 DICC 20 De 1 JSR 80 ; INDIRECT JSR 
2435 DICF 4C 66 C4 JMP ENDCMD 


2437 10112 4C 04 00 BE10 JMP (TEMP) 


2439  D1D5 i BUFFER-POINTER, SET BUFFER POINTER 
2440 DIDS 20 EA Di BLKPTR JSR BUFTST 

244i 1118 AS AB LDA JOSNUM 

2442 DIDA OA ASL A 

2443 DiDB AA TAX 

2444 109116 AD 85 43 LDA FILSEC+1 

2445 DIDF 95 29 STA BUFTAE, X 

2446 DiE1 20 Ab 4 JSR GETPRE 

2447 D1E4 20 EC Dé JSR RNGET2 i SET UP GET 
2448 D1E7 4C 66 C4 JMP ENDCMD 

2450 DIEA : TEST FOR ALLOCATED BUFFER.. 


2451  D1EA i .. RELATED TO SA 


BLOCK 


LINE 


2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 


2461 
2462 


2464 
2465 
2466 
2467 
2468 
2469 


2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 


2479 | 


2480 
2481 
2482 
2483 
2484 
2485 
2486 


2488 
2489 


COMMANDS 
LOC CODE 
DIEA ۸6 81 
DIEC E 81 
DIEE BD 87 
DIFI 8 
DiF2 8 
DIF3 88 
DiF4 CO OC 
DiF6 90 OS 
18ن‎ A? 70 
01۵۸ 4C 96 
DiFD 85 16 
DIFF 20 64 
D202 BO F4 
D204 20 DS 
D207 85 AB 
D209 0 
D20A 

D20A 20 EA 
D20D 

D20D 

D20D 

D2OD 46 81 
D20F BD 87 
D212 29 O1 
D214 $85 12 
D216 BD 89 
D219 85 14 
D21B BD 8 
D21E 85 13 
D220 

D220 20 74 
D223 4C DC 
D226 

D226 


p p a‏ = = و 


43 


C4 


D4 


E7 


01 


43 


43 


43 


D8 
F9 


PAGE 0060 


LINE 


BUFTST LDX 
INC 
LDA 
TAY 
DEY 
DEY 
CPY 
BCC 


LDA 
JMP 


BT1S 


STA 
JSR 
BGS 
JSR 
STA 
RTS 


BT20 


ΕΙΡΤΠ 
ΕΙΡΤΗ 
FILSEC, X 


#BAMJOB 
BT20 


#NOCHNL, 
CMDERR 


SA 
FNDRCH 
BT15 
GETACT 
JOBNUM 


i TEST BLOCK OPERATION PARMS 


BAOTST JSR 


+ 


BUFTST 


i TEST FOR LEGAL BLOCK &.. 


i .. SET UP DRV, 


BLKTST LDX 
LDA 
AND 
STA 
LDA 
STA 
LDA 
STA 

BTOS 
JSR 
JMP 


. END 


TRA, SEC 
F1PTR 

FILSEC,X 

#1 

DRVNUM ^ 
FILSEC+2, X 
SECTOR 
FILSEC+1, X 


TRACK 


TSCHK 


SETLDS i (RTS) 


LIB FNDREL 


FNDREL...... PAGE 1 


جو اد مد چو جو جو چو جو 3E‏ چو چو 38 3€ چو جو خد جو چو 3E‏ جو جو 3€ 36 303b 30 30 3E 3E‏ چږ ہے ہو D226‏ 2511 
D226‏ 2512 


2513 D226 


LINES LOG CODE LINE 
2491 D225 i جو ہجو چو جو چو جو جو‎ DEG TT و جو جو یو جو چو چو‎ T جو چو چڊ جو بے جو چو جو چو جو جو جو‎ 
2492 D226 P3* 
2493 D226 i% FIND RELATIVE FILE 
2494 D226 P3* 
2495  D22 ;* VERSION δ. ὃ 
2496 D226 j 3 
2497 D226 i 3 
2498 D226 ;* INPUTS 
2499  D226 :  RECL — IBYTE=LO RECORD # 
2500 D226 ;* RECH - IBYTE=HI RECORD # 
€501 D22 ور‎ RS - 1BYTE=RECORD SIZE 
2902 D226 i*  RECPTR - 1BYTE=FIRST BYTE 
2503 D226 i* WANTED FROM RECORD 
2904 D226 P* 
2505 D226 i* DUTPUTS 
20906 6 ;* SSNUM ~ 1ΒΥΤΕΞΘΙΡΕ SECTOR # 
2507  D2236 ;3À* SSIND - 1BYTE-INDEX INTO SS 
2508 D226 i#  RELPTR - 1BYTE=PTR TO FIRST 
2509 D226 P* BYTE WANTED 
2510 Da26 P* 
} 
2914 D226 i 
2915 D226 ; 
2916 D226 i 
2517 Deed j 
2518 D226 20 44 De FNDREL JSR MULPLY ; RESULT=RN#RS+RP 
2519 D229 20 86 Da JSR 4 i DIVIDE BY 254 
2520 Όρος AS 23 LDA AGCUM+1 i SAVE REMAINDER 
2521 D22E 85 3 STA RELPTR 
2522 D230 20 89 De JSR 10ء‎ ; DIVIDE BY 120 
25023 D233 Eé 85 INC RELPTR 
2524 D233 E6 85 INC RELPTR 
2525 D237 AS 1E LDA RESULT i SAVE QUOTIENT 
2526 D239 85 83 STA SSNUM 
2527 D23B AS 23 LDA ACCUM+1 i SAVE REMAINDER 
2528 D23D OA ASL A ; CALC INDEX INTO 55 
2529 D23E 18 CLC 
2530 D23F 69 10 ADC #16 i SKIP LINK TABLE 
2531 D241 85 84 STA SSIND 
2532 D243 60 RTS 
2533 D244 
2534 ۹4 
2535 D244 


2537  D244 
2532  D244 
2539 D244 
2040 D244 
2541  D244 i 


2536 D244 | ; MULTIPLY 
i RESULT=RECNUM#RS+RECPTR 


DESTROYS & X 


2542 D244 20 ΕΙ De MULPLY JSR ZERRES ;RESULT=0 
2942 D247 85 25 STA ACCUM+3 i A=0 
2544 D249 Ab 15. LDX LINDX ; GET INDEX 


2545 D24B BS S9 LDA RECL, X 


FNDREL 


LINER 


2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
25956 
2557 
2558 
2599 
2560 
2561 
2562 
2563 
2564 
2565 
2556 
2547 
2568 
2569 
e270 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 


.. e989 


2586 
2587 
2588 
2589 
2590 
2571 
2572 
25923 
2594 
25975 
2596 
2597 
2598 
2599. 
2600 


. . د‎ p >» 


LOC 


D24D 
D24F 
Deol 
D253 
D255 
D297 
D259 
D25B 
D25C 
D25E 
D240 
D262 
D264 
D264 
D266 
D268 
D26A^ 
D26C 
D26F 
D272 
D274 
D276 
D278 
D279 
D27B 
D27D 
D27F 
D281 
D283 
05 
026 
D286 
D286 
D286 
D286 
D286 
D286 
D286 
06 
D286 
D288 
D289 
D2EB 
ΡΞΕΡ 
D2gF 
D291 
D292 
D294 
D296 
D297 
06 
1] ۵ 
D29C 
D2GF 
D241 


PAGE 0062 


CODE 


FE 


78 
04 
03 


22 


1D 


F3 
F1 
00 
23 


D3 
D2 


D2 


LINE 


MUL25 


MUL.50 


MUL 100 


MUL 200 


MUL 400 


= ^" ws < ` = ` -- L. 


DIV254 


0101 20 


DIV100 


DIV150 
DIV200 


STA 
LDA 
STA 
BNE 
LDA 
BEG 
LDA 
SEC 
SEC 
STA 
BCS 
DEC 


LDA 
STA 
LSR 
BCC 
JSR 
JSR 
LDA 
BNE 
LDA 
CLC 
ADC 
STA 
BCC 
INC 
BNE 
INC 
RTS 


DIVIDE 


LDA 


ACCUM+1 
RECH, X 
ACCUM+2 
MUL2S 
ACCUM+1 
MUL 50 
ACCUM+1 


#1 
ACCUM+1 
MUL SO 
ACCUM+2 


RS; X 
TEMP 
TEMP 
MUL200 
ADDRES 
ACCX2 
TEMP ` 
MUL 100 
RECPTR 


RESULT 
RESULT 
MUL 400 


RESULT+1 


MUL 400 


RESULT+2 


DESTROYS A, X 


#254 


. BYTE $2C 


LDA 
STA 
LDX 
LDA 
PHA 
LDA 
STA 
PLA 
STA 
DEX 
BNE 
JSR 
LDX 
LDA 


#120 
TEMP 

#3 
ACCUM, X 


RESULT-1,X 
ACCUM, X 


RESULT-1i,X 


DIV100 
ZERRES 
#0 


ACCUM+1, X 


i ADJUST FOR REC #1 5... 
i... #0 = 15T REC 


; COPY RECSIZ 


i DO AN ADD ? 

; NO 

; RESULT=RESULT+ACCUM+1, 2, 3 
32% (ACCUM+1, 2, 3) 

i DONE 7 

i NO 

i ADD IN LAST BIT 


; SKIP NO CARRY 


RESULT=QUOTIENT , ACCUM+1=REMAINDER 


; DIVIDE BY 254 

; SKIP TWO BYTES 
; DIVIDE BY 120 

i SAVE DIVISOR 

i SWAP ACCUM-* 1,2, 3 WITH 
i RESULT. 1, 2 


; RESULT-O 


i DIVIDE BY 256 


FNDREL...... PAGE 0063 


LINES LOC CODE LINE 

2601 D2A3 95 22 STA ACCUM, X 

2602 02۵8ا‎ E8 INX 

2603 02۵6 EO 04 CPX #4 ; DONE 2 

2604 D2A8 90 F7 BCC DIV200 ; NO 

2605 DeAA A? OO LDA #0 ; ZERO HI BYTE 
2606 D24C 85 25 STA ACCUM+3 

2507 DeAE 24 04 BIT TEMP iA DIV120 ? 

2608 D2B0 30 Οὐ BMI 0 i NO 

2609 1282 Oá 22 ASL ACCUM : ONLY DIVIDE BY 128 
2610 80284 08 PHP i SAVE CARRY 

2611 DEBS 46 22 LSR ACCUM i NORMALIZE 

2612 D2B7 28 PLP i RESTORE CARRY 
2613 8288 20 FE D2 JSR ACC200 i 2) / 256 ( >1 8 
2614 D23B 20 05 D3 DIV300 JSR ADDRES : TOTAL A QUOTIENT 
2615 D2BE 20 FD D2 JSR ACCX2 i A=2*A 

2616 D2C1 24 04 BIT TEMP iA DIV120 ? 

2617 Dec3 30 03 BMI DIV400 ; NO 

2618 D2C5 20 FA D2 JSR ACCX4 i &=4* CO3tA) 7ے‎ 
2619 8208 AS 22 DIV400 LDA ACCUM : ADD IN REMAINDER 
2620 D2CA. 18 CLC 

2621 ا8206‎ 65 23 ADC ACCUM+1 

2622 D2CD 85 23 STA ACCUM+1 

2623 D2CF 90 06 BCC DIV500 

2624 82001 Eb 24 INC ACCUM+2 

2625 D2D3 DO O2 BNE DIV500 

2626 D2D5 Eá 29 INC ACCUM+3 

2627 D2D7 AS 25 DIV500 LDA ACCUM+3 i TEST < 256 
2628 D2D9 05 24 ORA ACCUM+2 

2629 D2DB DO C2 BNE DIV150 i CRUNCH SOME MORE 
2430 D2DD ADS 23 LDA ACCUM+1 : 18 REMAINDER < DIVISOR 
2631 820ا‎ 38 SEC 

2632 D2EO ES 04 SBC TEMP 

2633 D2E2 90 OC BCC DIV700 i YES 

2634 82483 Eá 1E INC RESULT ; NO — FIX RESULT 
2435 8256 DO 06 BNE DIV6OO 

2636 D2EB Eo IF INC RESULT+1 

2637 DeEA DO O2 BNE DIV600 

2638 D2EC ES 20 INC RESULT+2 

2639 DEE 85 23 01۷۵600 STA ACCUM-*1 ; NEW REMAINDER 
2640 D2FO 60 DIV7OO RTS 

2641 Deri i 

2642 01ا‎ i 

2643 01ا‎ i 

2644  D2F1 i ZERO RESULT 

2645 Deri i 

2646 021 A? OO ZERRES LDA #0 

2647 ὈΖΕΩ 5 JE STA RESULT 

26048 D2F5 85 IF STA RESULT+1 

2649 D2F7 85 20 STA RESULT+2 

2650 DAFF 60 RTS 

2651 Dara 


2652 6۸6۵ 
2653 Dera 
2654 66 
2695 D2FA 


MULTIPLY ACCUM BY 4 


w w x <<.‏ موا 


FNDREL...... PAGE 0064 


LINES LOC CODE LINE 


2656 DAFA 20 FD D2 ACCX4  JSR ACCX2 
2657  D2FD i 


2658 10 ; MULTIPLY ACCUM BY 2 
2659  D2FD i 

2560 82۳80 18 ACCX2 CLC 

2661 19288 26 23 ACC200 ROL ACCUM+1 
2562 D300 26 24 ROL ACCUM+2 
2663 8302 26 25 ROL ACCUM+3 
2664 D304 40 RTS - 

2665 D305 i 

2666 D305 i 

2667 D305 i 

2668 D305 ; ADD ACCUM TO RESULT 
2669 D305 i 

2670 D305 ر‎ RESULT=RESULT+ACCUM+1, 2, 3 
2671 D305 i 

2672 D305 18 ADDRES CLC 

2673 D306 A2 FD LDX #$FD 

2674 D308 BS 21 ADD100 LDA RESULT-*3, X 
2675 D30A 75 26 ADC ACCUM+4, X 
2476 80300 95 el STA RESULT+3, X 
2677 D3OE E8 INX 

2678 1308 DO F7 BNE 8 0 
2679 8311ا‎ 60 RTS 

2680 D312 i 

2681 D312 i 

2482 D312 i 

2683 D312 i 

2684 89 . END 


2685 D312 .LIB TST2 


2687 
2488 
2689 
2690 
2671 
2692 
2693 
2694 
26975 
26976 
2697 
24978 
2699 
2700 
2701 


2702 


2703 
2704 


- 2705 


2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2/722 
2723 
2724 
2725 
2726 
2727 


2728 


2729 
2730 
2731 


- 6735 


2733 
2734 


m 
2725 


2736 
2737 
2728 
2739 
2740 
2741 


. < < + 


LOC 


D312 
D312 
D312 
D312 
D314 
D316 
D318 
Ρ31Α 
D31C 
D31E 
D320 
D323 
D324 
D327 
D327 
D327 
D329 
D32B 
D32B 
D32E 
D331 
D333 
D335 
D337 
D339 
D339 
D339 
D339 
D33B 
D33D 
D33F 
D341 
D344 
D346 
D348 
D34B 
D34B 
D34D 
D350 
D252 
D255 
D357 
D35A 
D35C 
D35E 
D361 
D363 
D365 
D367 
6۸ 
066 
D36E 
D36F 
D36F 
D372 


CODE 


Ab 
B5 
49 
95 
B5 


99 
20 
AA 
4C 


15 
49 
80 
49 
51 
80 
21 
DS 


AF 


12 
16 


7F 
DC 
16 
OF 
e3 


08 


PAGE 0065 


ES 


98 


D4 
F9 


D4 


05 


ES 


D3 


06 


07 


43 


LINE 


. 
4 


i TOGGLE ACTIVE BUFFER # IN BUFNUM 


4 
DBLBUF LDX 


LINDX | 
LDA BUFO, X : TOGGLE ACTIVE FLAG 
EDR 0 
STA BUFO, X 
DBL1 LDA BUF1,X ; TOGGLE ACTIVE FLAG 
EDR #380 
STA BUF1, X 
DBL2 JSR GETACT ; GET ACTIVE BUF# 
TAX 
JMP WATJOB ; AND WAIT FOR BUFFER READY 
PIBYTE 
LDX ۴ ۸4 
STX ۸ 
PBYTE 
JSR FNDWCH 
JSR SETLDS 
LDA SA 
CMP 415 
BEG L42 
BNE L40 
; MAIN ROUTINE TO WRITE TO CHANL 
i 
PUT LDA ORGSA i YS CHANL CMD OR DATA 
AND 7 
CMP #15 i<15 
BCS L42 
L40 JSR TYPFIL ; DATA BYTE TO STORE 
BCS L41 i BRANCH IF RND 
LDA DATA ; SEG FILE 
JMP WRTBYT ; WRITE BYTE TO CHANL 
L41 
BNE L46 
JMP WRTREL 
L46 LDA DATA ;RND FILE WRITE 
JSR PUTBYT : WRITE TO CHANL 
LDY LINDX ; PREPARE NXT BYTE 
JMP RNGET2 
L42 LDA #CMDCHN ; WRITE TO CMD CHANL 
STA LINDX 
JSR GETPNT ; TEST IF COMM AND BUFFER FULL 
CMP #<CMDBUF+CMDLEN+1 
BEG 0 ;IT IS FULL (>40) 
LDA DATA ; NOT FULL YET 
JSR PUTBYT ; STORE THE BYTE 
L50 LDA EOIFLG ; TST IF LST BYTE OF MSG 
BEG L45 : IT IS 
RTS ; NOT YET , RETURN 
L45 | 
l INC CMDWAT G SET CMD WAITING FLAG 
RTS 


2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2750 
2761 
2762 
2769 


, 97648 


2765 
2766 
2767 
2768 
2769 


2770 


2772 
2773 
2774 
2775 
2776 


- 2777 


2778 
2779 


27680 


2781 
2782 
2783 
2784 
2785 
2786 
27687 
2788 
2789 


2790 


2791 
2792 


2773 


| 2794 


2795 
27976 


LOC 


D373 
D373 
D373 
073 
D274 
D377 
D379 
D37A 
D37C 
D37F 
D380 
D381 
D382 
D394 
D386 
D387 
D387 
D387 
D387 
D387 
9387 
D384 
010 
0 
D392 
D373 
D398 
D39B 
D39E 


061 
D3A 1 
D341 
D3A1 
03۵3 
DIAS 
D3A8 
0-6۵ 
D3AD 
D3AF 
D3B2 
DEBA 
D3E5 
0-6 
0365 
τους 
D35F 
Sco 
DOC 1 
DICE 
D3C5 
D3C8 
D3CB 
D3CE 
Dadi 


CODE 


48 
eo 
10 
é8 
A9 
4C 
OA 


68 
81 


60 


20 
20 
AD 


20 
20 


20 


4c 


AF 


AE 
86 
20 
ΔΘ 
4C 


eo 
20 
AG 
A9 
ΤῸ 
BA 
Of 
AA 


9D 
B9 
9D 


85 


DS 
06 


61 
96 


29 


29 


9F 
B2 
8D 
ος 
58 
DC 
B2 
SB 
66 
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E7 


C4 


C4 
D3 
43 


Cé 
F9 


Có 
C4 


FB 
09 
DS 
06 
03 


۹43 


10 
43 


10 


FB 


LINE 


PUTBYT 


PUTB 1 


-» LII me 


9 
4 


PHA 
JSR 
BPL 
PLA 
LDA 
JMP 
ASL 
TAX 
PLA 
STA 
INC 
RTS 


FIND THE 


; PUT .A INTO ACTIVE BUFFER OF LINDA 


i BAVE .A 

GETACT i GET ACTIVE 78 
PUTB1 ; BRACH IF THERE IS ONE 

; NO BUFFER ERROR 
&F ILNOP 
CHDERR ; JMP TO ERROR ROUTINE 
۵ i SAVE THE BYTE IN BUFFER 
(BUF TAB, X) 
BUFTAB, X ; INC THE BUFFER POINTER 


iZ=1 IF LAST CHAR SLOT IN BUFF 


ACTIVE BUFFER # (LINDA) 


; INITIALIZE DRIVES (COMMAND) 
INTDRV JSR 


ID20 


JSR 
LDA 
BPL 
JSR 
JSR 
JSR 
JSR 
JMP 


SIMPRS 
INITDR 
IMAGE 
ID20 
TOGDRV 
SETLDS 
INITDR 
TOGDRV 
ENDCMD 


; USED AS FLAG FOR BOTH DRIVES 


; INITIALIZE DRIVE (DRVNUM) 


ITRIAL. 


INITDR 


LDA 
STA 
LDX 
STX 
JSR 
LDA 
JMP 


JSR 
JSR 
LDX 
LDA 
STA 
TAA 
ASL 
TAK 
LDA 
STA 
LDA 
STA 
LDA 
STA 


#BAMJOB +2 
JOBNUM 
DIRTRK 
TRACK 
SETH 
#SEEK 
DOJOB 


CL DCHN 
ITRIAL 
DRVNUM 
#0 
MDIRTY: X 


٨ 


HDRE, Y 
DSKID, X 
HDRS+1, Y 
DSKID+1, X 
DIRTRK 
TRACK 


TOT. 4:85 PAGE 0067 


LINER LOC CODE LINE 

2797 D3D3 A? OO LDA #0 

2798 D3DS 85 14 STA SECTOR 
2799 D3D7 20 SF ΕΣ JSR SETBJ 
2-800 D3DA 20 SC D7 JSR 0 
2601 D3DD 46 12 LDX DRVNUM 
2802 D3DF A? OO LDA #0 

2603 DSE1 7D Ab 10 STA WPSW, X i CLEAR WP SWITCH 
2804 D3E4 9D Al 43 STA NODRV, X 
2805 7 i 

2806  D3E7 ; CALCULATE FREE BLOCKS 
28067  D3E7 i 

2808 D3E7 NFOS 

2809 1387 Ab 12 LDX DRVNUM 
2810 0357 AG OO LDA 400 

2811 D3EB °D 9D 43 STA NDBL, X 
2812 DEE 9D ΘΕ 43 STA ΝΡΒΗ, X 
2813 03۴1 85 13 STA TRAGK 
2814 3 NF10 ` 

2815 83۴3 Eó 13 INC TRACK 
2816 802۴5 AS 13 LDA TRACK 
2817 D3F7 CD BO 10 CMP MAXTRK 
2818 803۴۵ 90 O1 BCC 0 

2819 D3FC 60 . RTS 

2820 D3FD NF20 

2821 83۴0 CD 46 FB CMP DIRTRK 
2822 D400 FO Fi BEG NF10 

2523 D4O2 20 OA F9 JSR SETMAP 
2824 D405 Aó 12 LDX DRVNUM 
2825 D407 Bi O2 LDA (BMPNT),Y 
2826 D40? 18 CLC . 

2827 D40A 7D 9D 43 ADC NDBL, X 
2828 D4OD 9D 9D 43 STA NDBL, X 
2829 D410 70 El BCC NF10O 

2830 D412 FE 9F 43 INC NDBH, X 
2831 D415 4C F3 D3 JMP NF10 

2832 D418 

2833 8 

2834 D418 START DOUBLE BUFFERING 


- = ` we `. 


2835 D418 USE TRACK, SECTOR AS STARTING BLDACK 
2836 D418 ; 

2837 D418 STRDBL 

2838 D418 20 D? D? JSR SETHDR 
2839 1418 20 3C D4 JSR RDBUF 
2840 D41E 20 AF D8 JSR WATJOB 
2841 D421 20 AE D4 i JSR GETBYT 
2842 424 85 13 STA TRACK 
2842 D426 20 AE 4 JSR GETBYT 
2844 D429 85 14 STA SECTOR 
2845 D42B AS 13 LDA TRACK 
2846 D42D DO Οἱ BNE STRÅ 
2847 D42F 60 RTS 

2848 D430 20 12 D3 STR1 JSR DBLBUF 
2849 D433 20 D? D? JSR SETHDR 
2850 D436 20 3C D4 JSR RDBUF 


2851 D439 AG 12 D3 JMP DSLBUF 


LINES 


2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2854 
2865 
28466 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
28974 
28975 
2896 
2897 
28978 
2899 
29700 
2701 
2962 
2903 
2904 
2905 
2706 


> ه < * 


LOC 


D43C 
D43C 
D43C 
D43C 
D43E 
D440 
D440 
D440 
D440 
D442 
D445 
D448 
D449 
D44C 
D44D 
D44E 
D44F 
D450 
D452 
D454 
D457 
D457 
D45B 
D45B 
D45D 
D45F 
D461 
D462 
D463 
D464 
D464 
D464 
D464 
D464 
D464 
D464 
D464 
D464 
D446 
D448 
D46A 
D46C 
D46C 
D46E 
D470 
D472 
D472 
D473 
D474 
D476 
D478 
Ρ47Α 
D47C 
D47D 
D47E 


CODE 


A? 
DO 


80 
og 


90 
3E 
DS 


13 


AC 
06 
OF 
15 


PAGE 0068 


43 
E7 


Da 


04 


LINE 


i START A READ JOB ON TRACK, SECTOR 


RDBUF LDA #READ 
BNE STRTIT 


i START A WRITE JOB ON TRACK, SECTOR 


WRTBUF LDA #WRITE 
STRTIT STA CMD 
JSR GETACT 
TAX 
JSR SETLJB 
TXA 
PHA ` 
ASL. A 
TAX 
LDA #0 
STA BUFTAB, X 
JSR TYPFIL 
CMP #4 
BCS WRTC1 ; NOT SEQUENTIAL TYPE 
INC NBKL, X 
BNE WRTC1 
INC NBKH, X 
WRTC1 PLA 
TAX 
RTS 
EE چو‎ δε IEEE ېبد‎ 3E 3€ د + ج جد جد جج چو جد جج جد جد جد چو جد جد‎ 
i* 
} 8 FNDRCH 
j چو‎ δὲ چو ېډ چو چو‎ JEJE 3E چو جد چو جد چو جو ېد‎ IE جد جد‎ HE JE چو جد جد جد‎ ERE ېډ‎ IE GE 
P3* 
j 3⁄ 
FNDRCH LDA SA 
CMP HMAXSA+1 
BCC FNDC20 
AND #$F 
FNDC20 
CMP #CMDSA 
BNE FNDC25 
l LDA #ERRSA 
FNDC25 
TAX 
SEC 
LDA LINTAB, X 
BMI FNDC3O 
AND #$F 
STA LINDX 
TAX 
CLC 
FNDC30 RTS 


TST2...... PAGE 0070 


LINEH LOC CODE LINE 
2962 D4BE DO 04 BNE GETB2 

2963 D4CO A? FF LDA #$FF 

2964 D4C2 95 29 STA BUFTAB, X 

2965 D4C4 68 ` GETB2 PLA 

2966 وج هم‎ Fé 29 INC BUFTAB, X 

2967 47ط‎ 40 RTS 

2968 DA4C8 Al 29 GETB1 LDA (BUFTAB, X) 
2969 DACA Fé 29 INC BUFTAD, X 

2970 40ج‎ 40 RTS 

2971 2 ; 

2972 D4CD i 

2973  D4CD ; READ A CHAR FROM FILE AND READ NEXT 
2974 40ج‎ ; BLOCK OF FILE IF NEEDED. 
2975 02 i SET ΟΗΝΗΡΥΞΕΟΙ IF END OF FILE 
2976  DACD i 

2977 D4CD 20 AE D4 RDBYT JSR GETBYT 

2978 DADO DO 36 BNE RD3 

2979 D4D2 85 18 STA DATA 

2981 D404 BY C7 OO RDO LDA LSTCHR, Y 

2982 D4D7 FO 08 BEG RD1 

2983 D4D9 A? مه‎ LDA 7 

2984 D4DB 99 A2 00 RDO1 STA ٣۷ 

2985 D4DE AS 18 LDA DATA 

2986 DAEO 60 RTS 

2987 DaEi 20 12 D3 RD1 JSR DBLBUF 

2988 D4E4 A? OO LDA #0 

2989 D4E& 20 Cé D7 JSR SETPNT 

2990 D4E9 20 AE D4 JSR GETBYT 

2991 D4EC C9 00 CMP #0 

2992 D4EE FO 19 BEQ RD4 

2993 D4FO 85 13 STA TRACK 

2994 D4F2 20 AE D4 JSR GETBYT 

2995 D4F5 85 14 STA SECTOR 

2996 D4F7 20 12 D3 JSR DBLBUF 

2997 DAFA 20 4A 5 JSR SETDRN 

2998 D4FD 20 D9 D9 JSR SETHDR 

2999 D500 20 3C D4 JSR RDBUF 

3000 D503 20 12 D3 JSR DBLBUF 

3001 D506 A5 18 LDA DATA 

3002 D508 60 RD3 RTS 

3003 DSO? 20 AE 4 RD4 JSR GETBYT 

3004 D50C A4 15 LDY LINDX 

3005 DSOE 99 C7 OO STA LSTCHR, Y 

3006 D511 AS 18 LDA DATA 

3007 D513 60 | RTS 

3010 4 ; WRITE A CHAR TO CHANL AND WRITE 
3011 4 ; BUFFER OUT TO DISK IF ITS FULL 
3012 4 ; 

3013 D514 20 73 D3 WRTBYT JSR PUTBYT 

3014 D517 FO 01 | BEG WRTO 


3015 D519 60 RTS 


TST2...... PAGE 0071 


LINE# LOC CODE LINE 

3017 DS31A 20 44 DS WRTO JSR SETDRN 

3018 515 20 FB F9 JSR NXTTS 

3019 D520 A? OO LDA 40 

3020 8522 20 C6 7 JSR SETPNT 

3021 D325 AS 13 LDA TRACK 

3022 D527 50 73 D3 JSR PUTBYT 

3023 052۵ AS 14 LDA SECTOR 

3024 555 20 73 D3 JSR 7 

3025 DS2F 20 40 D4 JSR WRTBUF 

3026 D532 20 12 D3 JSR DBLBUF 

3027 D535 20 DY DI JSR SETHDR 

3028 D538 A? O2 LDA #2 

3029 DS3A 4C C6 D7 JMP SETPNT 

3030  DS53D i 

3031 D53D i INC POINTER OF ACTIVE BUFFER 
3032  DS3D , BY .A 

3033 DISD i 

3034 10 ; 

3035 DS53D INCPTR i SCOTT PATCH 
3034 D53D 85 04 INCPNT STA TEMP 

2037  DS53F 20 ES 7 JSR GETPNT 

3038 D542 18 CLC 

3039 D543 69 04 ADC TEMP 

3040 D545 53 29 STA BUFTAB, X 

3041 D547 85 27 STA DIRBUF 

3042 D549 60 RTS 

3043 ۸ ; SET DRVNUM TO DRIVE INDICATED BY 
3044 ۵ ; LSTJOB QF ACTIVE BUFFER 
3045 ۸6 i 

3044 DS4A 20 DS E7 SETDRN JSR GETACT 

3047 DS4D AA TAX 

3048 DS54E BD 50 43 LDA LSTJOD, X 

3049 D551 29 O1 | : AND 1 

3050 D553 85 12 STA DRVNUM 

3051 0555 60 RTS 

3052 6 . END 


3053 D556 .LIB TST3 


TITA اہی‎ PAGE 0072 


LINES LOC CODE LINE 

3055 6 i 

3056 D556 i 

3057 16 i . A-EDUFFERS NEEDED 

3058 6 i SETS UP BUFFER # AND ALLOCATES LINDX 
3057 6 GETWCH 

3060 DS556 38 SEC i SET .C=1 INDICATE WRITE 
3061 D557 BO O1 BCS GETR2 

3062 D559 GETRCH ۱ 

3063 D559 18 CLC i SET .C=0 INDICATE READ 
3064 DISA GETR2 

3065 DSSA 08 PHP i SAVE R/W FLAG (.C) 
3066 DSSB 85 04 STA TEMP i SAVE #BUFS NEEDED 
3067 DSSD 20 9D DS JSR FRECHN i FREE ANY CHANNELS 
3068 D560 20 7E Dé JSR FNDLNX ; GET NEXT LINDX OPEN 
30697 D563 85 15 STA LINDX 

3070 D565 Ab 16 LDX SA 

3071 Π567 28 PLP 

3072 D568 70 02 BCC GETRSS 

3073  D56^ OF 80 GETRS2 DRA 0 

3074 Πρός 75 AC GETRSS STA LINTAB, X i SAVE LINDX IN LINTAB 
3075  DS6E GETBF 

3076 DS6E 29 OF AND 9۴ 

3077 D570 8 TAY i NOW GET THE BUFFERS 
3078 DS71 AG FF LDA #$FF 

3079 D373 99 79 00 STA SS, Y 

3080 DS7& 99 49 00 STA BUFO, Y 

3081 D579 97 51 OO STA BUF1, Y 

3082 D57C Cé 04 GETR3 DEC TEMP 

3083 DS7E 30 1C BMI GETR4 

3084 D580 20 O2 Dé JSR GETBUF 

3085 D583 10 08 BPL GETRS 

3086 D585 20 CE DS GBERR JSR RELBUF ; ERROR ,REL BUFS 
3087 D588 A? 70 LDA #NOCHNL 

3088 DIBA 4C 95 C4 JMP CMDERR 

3089 DSED 99 49 00 GETRS STA BUFO, Y 

3090 ۱953706) Có 04 DEC TEMP 

3091 1572 30 08 BMI GETR4 

3092 DIRA 20 O2 Dó JSR GETBUF 

3093 D577 30 EC BMI GBERR 

3094 D599 99 51 OO STA BUF1,Y 

3095 0590 60 GETR4 RTS 

3096 DS9D i 

3097  DS9D i FREE GHANL ASSOCIATED WITH SA 

3098  DS9D ; FREE READ AND WRITE CHANLS 

3099 5إ‎ ; DUNT FREE CHANL 15 

3100 DS9D AS 16 FRECHN LDA SA 

3101 195978 C9 OF CMP H$F 

2102 DSAi DO Ol BNE FRECO 

3103 195 3 60 RTS 

3105 ۶۵ FRECO 

3106 54 FRERD 

3107 DSA4 Aá 16 FREWRT LDX SA 

3108 D5A6 BS AC LDA LINTAB: X 


3109 0588 C9 FF CMP ۴ 


TOT3. 13404 
LINER LOC 

3110 #۵ 
3111 DSAC 
3112 DSAE 
3112 DS5BO 
3114 DSE2 
3115 4 
3116 DSBS 
3117 8 
3118 DIBA 
3119  DSBD 
3120 DOSED 
3121  DSBD 
3122  DSBD 
3123 ۳ 
2124 1 
3125 Data 
3124 4 
3127 5 
3128  D5C7 
3129 DICA 
3130 DSCD 
3131 ع0‎ 
31232 DCE 
3133 DSCE 
3134  DSCE 
3135  D5CE 
3136  DSCE 
3127  DSDO 
3138  DSD2 
3139 BSD4 
3140 DDS 
3141 7 
3142 DSD? 
3143 8 
3144  DSDC 
3145 DSDF 
3146 ےا انا‎ 
3147 DSES 
3148 DSES 
3149 7 
3150  DSES8 
3151 DSEA 
3152 DSEC 
3153 DJED 
3154 ٥٤ 
3155 ج0ا‎ 
3156 DSF4 
23157 6 
3158 8 
3159 9 
3160 1 
3161  DSFD 
3152 DSFE 
3143 1 
3164 D402 


PAGE 0073 


CODE 


FO 
eo 
85 
A9 
FO 
AS 
A? 
99 


20 


21 
3F 
15 
FF 
AC 
19 
00 
A2 
CE DS 


15 
O1 


03 


FA 
4B 43 
4B 43 


39 6 


39 Dó 
15 
79 
FF 
09 


FF 
79 


39 DS 


LINE 


BEG 
AND 
STA 
LDA 
STA 
LDX 
LDA 
STA 
JSR 


i 


FRE25 
ΗΦ3Ε 
LINDX 
ΗΦΕΕ 
LINTAB, X 
LINDX 
#00 
CHNRDY, X 
RELBUF 


i RELEASE THE LINDA 


, 
RELINX LDX 


LDA 

REL15 DEX 
BMI 

ASL 

BNE 

REL10 ORA 
STA 

FRE25 RTS 
GIVEN SA 


RELBUF LDX 
LDA 
CMP 
BEG 
PHA 
LDA 
STA 
PLA 
JSR 
LDX 
LDA 
CMP 
BEG 
PHA 
LDA 
STA 
PLA 
JSR 
LDX 
LDA 
CMP 
BEG 
PHA 
LDA 
STA 
PLA 
‘JSR 
RTS 


REL1 


REL2 


REL 3 


RELEASE BUFFERS 


LINDX 
#1 


REL10 
A 
REL15 
LINUSE 
LINUSE 


i 1=FREE O=USED 


» FREE ITS READ CHANL 


(LINDX) 


LINDX 
BUFO, X 
ΗΦΕΕ 
REL 1 


ΗΦΕΕ 
BUFO, X 


FREBUF 
LINDX 
BUF 1, X 
HFF 
REL2 


ΗΦΓΕ 
BUF1,X 


FREBUF 
LINDX 
SS, X 
HSFF 
RELS 


ΗΦΕΕ 
SS, X 


FREBUF 


15190004 PAGE 0074 


LINES LOC CODE LINE 

3165 D602 ; GET Å FREE BUFFER st 
3166  D602 j 

3167 D602 AD FF GETBUF LDA #$FF 
3168 D604 85 05 STA TEMP+1 
3169 D606 جھ‎ OF LDX $15 
3170 D608 2E 40 43 GETBU1 ROL BUFUSE 
3171 D60B 2E 41 43 ROL BUFUSE+1 
3172 D60E BO 05 BCS GETBU2 
3173 D610 86 O5 STX TEMP+1 
3174 D412 38 SEC f 
3175 D413 BO 19 BCS GETBU3 
3176 D6i5 CA GETBU2 DEX 

3177 Déié 10 FO BPL GETBU1 
3178 D618 2Ε 40 43 ROL BUFUSE 
3179 D61B 2E 41 43 | ROL BUFUSE+1 
3180 01618 6ھ‎ 05 GETBU4 LDX TEMP+1 
3181 D620 30 OA BMI 5 
3182 D622 Az? OO LDA #0 

3183 D624 97D 03 10 STA JOBS, X 
3184 D427 AS 12 LDA DRVNUM 
3185 D629 9 50 43 STA LSTJOB, X 
3186 8620 BA GETBS5 TXA 

3187 D62D 60 RTS 

3188 Dé2E CE 40 43 GETBU3 ROL BUFUSE 
3189 D631 ΞΕ 41 43 ROL BUFUSE+1 
3190 D634 CA DEX 

3191 D435 10 F7 BPL GETBU3 
3192 D637 30 5ج‎ BMI GETBUA 
3193 D629? ` j ALLOCATE 

3194 D639 i 

3195 D639 ; : 

3196 D639 29 OF FREBUF AND #$F 
3197 33ہ‎ AB TAY 

3198 DZC C8 INY 

3199  D63D ΑΖ 10 LDX #16 
3200 D63F 6Ε 41 43 FREB1 ROR BUFUSE+1 
3201 Dé42 چم‎ 40 43 ROR BUFUSE 
3202 D445 8 DEY 

3203 Dé46 DO Oi BNE FREB2 
3204 860438 18 CLC 

3205 D449 CA FREB2 DEX 

3206 564۵ 10 F3 BPL 1 
3207 D&S4C 60 RTS 

3208 41 i 

3209 Dé64D i 

3210 D64D چم‎ OE CLRCHN LDA $14 

2211 D64F 85 16 STA SA 

3212 Dé5i 20 9D 5 CLRC1 JSR FRECHN 
3213 8658 Cé 16 DEC SA 

3214 Dé56 DO FY BNE 1 
3215 658 60 RTS 

3216 D659 i 

3217 D659 AD OE CLDCHN LDA #14 
3218 D&5B 85 16 ; STA SA 


3219 D&65D Ab 16 CLSD LDX SA 


TST3...... PAGE 0075 


LINES LOC CODE LINE 

3220 0658۴8 BS AC LDA LINTAB,X 
3221 0851 CF FF CMP ۴۳٣ 
2222 D463 FO 14 BEQ CLD2 

Gee D665 29 3F AND #$3F 
3224 D647 85 15 STA LINDX 
322 D669 20 DS E7 JSR GETACT 
3226  D66C AA TAX 

3227  D6&D BD 50 43 LDA LSTJOB, X 
322 D670 27 O1 AND iti 

322 D472 C5 12 CMP DRVNUM 
323 D674 DO 03 i BNE CLD2 
3231 8676 20 9D DS JSR FRECHN 
3232 1877 Cé 16 6-02 DEC SA 

3233 8678 10 EO BPL CLSD 
3234  D67D 60 RTS 

3235 676 

3236  D67E FIND A FREE LINDX TO USE 


- -.--: hee 


3237  D67E MARK AS USED IN LINUSE 

3238  D67E j 

3239  D67E AO OO FNDLNX LDY 80 

3240 5680 A? Οἱ LDA #1 

3241 19682 2C 4B 43 FNDiO BIT LINUSE i 1ΞΕΒΕΕ O=USED 
3242 Dé85 DO 9 BNE FND30 

3243 Π687 C8 INY 

3244 85688 OA ASL A 

3245 D687 DO F7 BNE FND10 

3246 8688 AG 70 LDA #NOCHNL ; NO FREE LINDX AVAILABLE 
3247 DéBD 4C 96 C4 JMP CMDERR 

3248 Dé?0 49 FF FND3O EOR 7 i TOGGLE BIT MASK 
3249 D692 20 4B 3 AND LINUSE i MARK BIT USED 

3250 D6?95 BD 4B 43 STA LINUSE 

3251 Dé? 98 TYA ¿RETURN LINDX IN .A 
3252 D479 60 RTS 

3253  D69A . END 


3254  D69A .LIB TST4 


TST4L ۳ءء‎ PAGE 0076 


LINES LOC CODE LINE 

3256 Dé69A i 

3257 DOSA i GET NEXT CHAR FROM A CHANL 

3258 DSA i 

3259 9۸ GBYTE ; GET THROUGH INTERNAL CHANN 
3260 Dé?4 20 64 D4 JSR FNDRCH 

3261 959591 20 DC F9 JSR SETLDS 

3262 86۵0 20 AS Dé JSR GET 

3243  DóA3 Ab 19 LDX LINDX 

3264 DAS BS BF LDA CHNDAT, X 

3265 D&47 60 RTS 

3246 6 i 

3267 68ا‎ i 

3268 D&AB Ab 15 GET LDX LINDX 

3269 86۵۵ا‎ 20 9C 4 JSR TYPFIL ; GET FILE TYPE 

3270 D6AD DO O3 BNE GETOO 

3271 ۳ i 

3272 05۸8۳ 4C 49 ED JMP RDREL 

3273  D6B2 GETOO 

3274  D6B2 AS 16 LDA SA 

3275 ٧584 C9 OF CMP 7۳ 

3276 DBA FO 39 BEG GETERC 

3277  D6B8 i 

3278 0688ا‎ BS A2 LDA CHNRDY, X ; WAS LAST CHAR JUST SENT 
3279 D6BA 29 08 AND HEOISND ; JUST SENT EDI 

3280  D6BC DO 13 BNE GET1 ; NOPE NOT THIS TIME 
3281 DBE i 

3282 DABE 20 9C D4 JSR TYPFIL 

3283 Deci C9 07 CMP +9 ۳ 

3284 8603 DO 07 BNE GETO . ¿NOT DIRECT TYPE 

3285 ات لالا‎ j 

3286 0565 A? 89 LDA $RNDRDY ; DIRECT FILE REMAINS ACTIVE 
3287 D&C7 395 A2 STA CHNRDY, X i TALKER LISTENER 14. 
3288 DAC? 4C DC Db JMP RNDGET ; PREPARE THE NEXT CHAR 
3289  D6CC i 

3290 0566 AG OO GETO LDA 7۷ ;LST CHAR SENT, NOT READY 
3291 D6CE 95 ^2 STA CHNRDY, X 

3292 DADO 60 RTS 

3293 01 i l 

3294 8061 i 

3295  DéD1 AS 16  GET1 LDA SA i TEST IF Å LOAD 

3296 D4D3 FO 31 BEG GET6 i ITS A LOAD SA OF ο 
3297 5 i 

3298 0605 20 9C D4 GETZ JSR TYPFIL ; TST FOR RND FILE 
3299 0508 Cc? 4 CMP 44 

3300 DeDA 90 22 BCC SEGGET ; SEG FILE CHAR GET 
3301 DADC i 

3302 Dépc 20 AS 4 RNDGET JSR GETPRE ; DIRECT FILE GET 
3303 PéDF BS 29 LDA BUFTAB, X 

3304 DbeEi1 DF C7 00 CMP LSTGHR, Y ; UP. TO LST CHAR YET 
3305 Dé&£4 DO O4 BNE RNGET1 ; NOT YET 

3306  D6GEO i 

3307 DóEá A? OO LDA #0 ;READ THE WHOLE THING 
3308 15858 995 29 STA BUFTAB, X i WRAP PNTR ΤΟ ο 

3309  D6EA RNGET1 


3310 DEA Få 299 INC BUFTAB, X ; GET THE NEXT CHAR 


TST4...... PAGE 0077 


LINEH LOC CODE LINE 

3311 D6EC RNGET2 

3312 D6EC Al 29 LDA (BUFTAB, X) 

3313  D&EE RNGET4 

3314 D6EE οφ BF OO STA CHNDAT.Y  ; SAVE CHAR IN 
3315 DéF1 BS 29 LDA BUFTAB, X | 

3316 D6F3 D9 C7 OO CMP LSTCHR, Y 

3317 DéF& DO 05 BNE RNGET3 

3218 8 ; 

3319  D6F8 A? 81 LDA #RNDEOI 

3320 DSFA 99 A2 OO STA CHNRDY,Y  ; THIS IS LAST CHAR 
3321 DFD 60 RNGETS RTS ; SEND EOI WITH IT 
3322 D6FE ; 

3323 Dé6FE ; 

3324 D6FE 20 CD D4 SEQGET JSR 7 ; READ THE NEXT BYTE 
3325 D701 Ab 15 GET3 LDX LINDX 

3326 D703 95 BF STA CHNDAT,X i STORE IN CHNDAT 
3327 D705 60 RTS 

3328 D706 7 

3329  D706 

3330 D706 AD 49 43 GETS LDA DIRLST ; TEST IF DIR LSTING 
3331 D709 FO 3 BEG SEGGET ΕΝΏ, ITS NOT 
3332 D70B 20 57 F5 JSR GETDIR ; YES IT IS,GET DIR CHAR 
3333 D70E 4C οἱ D7 JMP GET3 

3334 D711 i 

3335 D711 GETERC 

3336 D711 20 E6D7 . JSR GETPNT 

3337 D714 C9 DB CMP #<ERRBUF-1 

3338 D716 DO 18 BNE GE10 

3339 D718 AS 28 LDA DIRBUF+1 

3340 D7iA C9 43- CMP #>ERRBUF 

3341 D71C DO 12 BNE GE10 

3342 ۶8 ; 

3343 D71E A? OD LDA #CR 

3344 D720 85 18 STA DATA 

3345 D722 20 F2 F9 JSR ERROFF 

3346 D725 A? OO LDA #0 

3347 D727 20 76 EF JSR ERRTSO 

3348 D72A Cé 47 DEC CB+2 

3349 D72C ΑΦ 80 LDA HEOIOUT 

3350 D72E DO 12 BNE 0 ; (JUMP ) 

3351 0 2d 

3352 0 GE10 

3353 D730 20 AE ۹ JSR GETBYT 

3354 D733 85 18 STA DATA 

3355 D735 DO ο BNE GE20 

3356 D737 GE15 

3357 D737 A? DB LDA #<ERRBUF-1 

2258 D739 20 Cé D7 JSR SETPNT 

3355 D73C A? 43 LDA #>ERRBUF 

3360 D73E 95 2A STA BUFTAB+1, X 

3361 D740 GE20 

3362 D740 A7 88 LDA #RDYTLK 

33635 D742 GE30 

3364 D742 85 A9 STA CHNRDY+ERRCHN 


3365 D744 ۵5 18 LDA DATA 


3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3372 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 


. ew 


LOC 


D746 
D748 
D749 
D749 
D749 
D749 
D749 
D749 
D749 
D749 
D74C 
D74D 
D74E 
D750 
D752 
D754 
D756 
D798 
0758 
D79C 
D7S5C 
070 
D75C 
D75C 
D75E 
D740 
D760 
D760 
D760 
D762 
D764 
D767 
D769 
D76C 
D76E 
D771 
D771 
D771 
D771 
D773 
D773 
0775 
D777 
D779 
D77C 
D77E 
D781 
D781 
D781 
D781 
D783 
D785 
D788 
D788 
D7&8 


CODE 


85 C6 
60 


20 DS 


A? OO 


Ai 29 
FO 05 


4C CD 


A? BO 
DO O2 


A? 70 
05 12 
8D 3E 
AS AB 
eo DC 
AG AB 
4C A? 


A9 12 
85 6 
4c 1C 


PAGE 0078 


EZ 


04 


43 


D? 


08 


E4 


D7 


ES 


LINE 


STA CHNDAT+ERRCHN 
RTS 


READ NEXT BUFFER OF A FILE 
FOLLOW LINKS IN FIRST TWO BYTES 
END OF FILE IF 1ST BYTE-O 

2ND CHAR LENGTH 


XTBUF JSR GETACT 
ASL A 

TAX 

LDA #0 

STA BUFTAB, X 
LDA (BUFTAB, X) 
BEG NXTB1 

DEC BUFTAB, X 
JMP RDBYT 

RTS 


= ہج به ہہ ہے‎ -- w -ν 


NXTB1 
} 


; DIRECT BLOCK READ 


i 


DRTRD LDA #READ 
BNE DRT 
; DIRECT BLOCK WRITE 
; DIRECT BLOCK WRITE 
DRTWRT LDA WRITE 
DRT ORA DRVNUM 
STA CMD 
LDA JOBNUM 
JSR SETH 
LDX JOBNUM 
JMP DOIT2 
; OPEN INTERNAL READ CHANL (SA=16) 
OPNIRD 
LDA 1 
OPNTYP | 
STA TYPE 
LDA #IRSA 
STA SA 
JSR OPNRCH 
LDA #2 
JMP 7 
; OPEN INTERNAL WRITE CHANL (SA=16) 


LDA 6۸6 ° 


STA SA 
JMP OPNWCH 


OPNIWR 


; ALLOCATE NEXT DIRECTORY BLOCK ON 18 
; AND MARK AS USED IN BAM 


— ps 


3421 
3422 
3423 
3424 
3425 
3426 
3427. 

428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
34497 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3466 
3469 
3470 
3471 
3472 
3473 
3474 
3475 


* = a o 


LOC 


D788 
D788 
D78B 
D78D 
D78F 
D792 
D793 
D7?5 
D778 
D79B 
D79C 
D79F 
07۵1 
D744 
D7A6 
D7A9 
078 
D7AE 
D7B1 
D7B4 
D7B6 
D7B9 
D7BC 
D7BE 
0761 
0763 
0766 
D7C6 
D7C6 
D7C6 
D7C6 
78 
D7CB 
D7CC 
07610 
D7CF 
D7Di 
D7D3 
D7D5 
D7D7 
D7D8 
D7D8 
078 
078 
076 
78 
76 
D7DC 
D7DF 
D7E1 
D7ES 
D7E6 
076 
D7E6 
D7E6 
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CODE 


20 
A9 
85 
AD 
48 
AG 
aD 
20 


68 


A? 
20 
AS 
20 
AS 
20 
20 


A? 
20 


eo 


20 
AF 
4C 


A9 
85 
20 
AS 
85 
46 


20 


7B Εδ 
01 
04 
F4 10 


03 
F4 10 
O2 FA 


F4 10 


Có 7 
13 


14 
73 D3 
40 D4 
AF 8 
00 
Cé 7 


FB 
73 D3 
FF 
73 D3 


04 
D5 E7 


2A 


04 
2? 
27 


11 
16 
9D DS 
12 


16 


9D DS . 


DS E7 


LINE 


NXDRBK 


NXDB 1 


. A=NEW PNTR VALUE 


i 
4 
SETPNT 


FREE 


"- w لو‎ w UG 


FREICH 


i 


; READ 


GETPNT 


JSR 
LDA 
STA 
LDA 
PHA 
LDA 
STA 
JSR 
PLA 
STA 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
BNE 
JSR 
LDA 
JMP 


STA 
JSR 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
STA 
RTS 


THE 


LDA 
STA 
JSR 
L.DA 
STA 
JMP 


THE 


JSR 


CURBLK 


#1 
TEMP 
SECINC 


#3 
SECINC 
NXTDS 


SECINC 
HO 
SETPNT 
TRACK 
PUTBYT 
SECTOR 
PUTBYT 
WRTBUF 
WAT JOB 
#0 
SETPNT 
PUTBYT 
NXDB1 
PUTBYT 
ΗΦΕΕ 
PUTBYT 


TEMP 
GETACT 
A 


BUFTAB-*1,X 
DIRBUF+1 


TEMP 


BUFTAB, X 


DIRBUF 


j 


INCR SECTOR BY 3 IN DIREC 


INTERNAL CHANL (SA=16) 


#IRSA 
SA 
FRECHN 
#IWSA 
SA 
FRECHN 


ACTIVE BUFFER POINTER 


GETACT 


3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
| 3491 
3492 
3493 
3494 
3475 
3476 
3497 
3498 
3499 
3499 
3499 
3500 
3500 
3500 
3500 
3501 
3501 
3501 
3501 
3502 
3502 
3502 
3502 
3503 
3504 


-= =“ = ®» 


LOC 


D7E9 
07-9 
07-6۵ 
D7EB 
D7ED 
D7EF 
D7F1 
D7F3 
D7F4 
D7F4 
D7F4 
D7F4 
D7F6 
D7F9 
D7FA 
D7FD 
D7FF 
DEOL 
D803 
D804 
D804 
D804 
D804 
D804 
D805 
806 
D807 
5808 
Deo? 
D804 
D80B 
DHOG 
0800 
ج080‎ 
080۳ 
D810 
811 
D812 
D813 
D813 


CODE 


OA 
AA 


85 
BS 


60 


85 


AA 
BD 


AQ 
B1 
60 


ZA 
28 
2? 
27 


PAGE 0 


E7 


D8 


LINE 


SETDIR 

GP 1 ASL A 
TAX 
LDA BUFTAB+1, X 
STA DIRBUF+1 
LDA BUFTAB: X 
STA DIRBUF 
RTS 


i DIRECT READ BYTE, .A=BYTER TO READ 


DRDBYT STA TEMP+2 

JSR GETACT 

TAX 

LDA BUFIND, X 

STA TEMP+3 

LDY #0 

LDA (TEMP+2), Y 

RTS 
; INDEX TABLE CONTAINING HIGH 
i BYTE ADDRESS OF BUFFERS 


BUF IND 
. BYTE $11, $12, $193 
. BYTE $20, $21, $22, $23 
. BYTE $30, $31, $32, $33 


. BYTE 540, $41, $42, $43 


. END 
. LIB JOBS 


LINER 


3506 
3507 
3508 
43509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3919 
3520 
3521 
3522 
3523 
3524 
3525 
3926 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
5549 
3550 
3551 
2552 
3550 
3554 
23555 
3556 
3557 
3558 
3559 
3560 


LOC 


D813 
D813 
D813 
D813 
D813 
D813 
D816 
D818 
08108 
0810 
D81B 
D81B 
95818 
9581 Β 
D81B 
D81C 
D81E 
D81F 
D820 
D821 
0822 
D823 
D826 
D829 
D82C 
D82E 
D82E 
081 
D833 
D833 
D834 
D835 
D836 
D838 
86 
08360 
D83D 
9285 
D83F 
D841 
41 
0844 
D846 
046 
D849 
pa49 
D84P 
D84E 
D850 
DESO 
DESO 
DES1 
D854 
D857 
D85? 


CODE 


BD 
29 
OD 


48 
86 


OA 
OA 


AA 
BD 
gD 


FO 


CD 
BO 


AA 


48 
29 
c9 
DO 
e8 
48 
44 
BO 


AD 
70 


AD 


FO 
CD 
DO 


BA 
20 
CD 
FO 


20 


3E 


AB 


FO 


o3 


05 


02 
03 


o2 
05 


9F 
37 


ec 


3E 


34 


PAGE 0081 


43 


43 


10 


10 


10 


41 


42 


10 


FB 
43 


LINE 


7 


رت —-" ` - 


USE LASTJOB FOR DRIVE # 
CMD IS USED FOR 


JOB COMMAND 


ΞΕΤΙ JD 
LDA LSTJODB, X 
AND 1 
ORA CMD 
SET JOB UP 


ur -. ` -‏ ہد 


SET JOB 


SJB2 


SJB3 


SJB4 


PHA 
STX 
TXA 
ASL. 
ASL 
ASL. 
TAX 
LDA 
STA 
LDA 
BEG 


CMP 
BCS 


TAX 
PLA 
PHA 
AND 
CMP 
BNE 
PLA 
PHA 
LSR 
BCS 


LDA 
BCC 


LDA 


BEG 
CMP 
BNE 


TXA 
JSR 
CMP 
BEG 
BCS 


JOBNUM 


A 
^ 
A 


AND CHECK T&S 
. A=COMMAND FOR JOBS 
. X=JOB NUMBER 


HDRS+3, X 


CMD 


; SAVE SECTOR 


HDRS+2, X 


TSERR 


MAXTRK 
TSERR 


*$FO 
#WRITE 
SJBi 


A 
SJB2 


BAMO+2 
SJB3 


BAMi+2 


SJB4 
VERNUM 
VNERR 


MAXSEC 
CMD 
TSERR 
SJB1 


i TRACK TOO LARGE 


; CHECK FOR WRITE 


: NOT WRITE, SKIP CHECK 


; DRIVE 1 


; GET VERSION ٭‎ 


: GET DRIVE 1 VERS 


; NO # IS OK. TOO 


; NOT SAME VERNUM ἢ 


; RESTORE TRACK # 


i SECTOR IS OK! 


3561 
3562 
3563 
3564 
3965 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3977 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3987 
3588 
3589 
3590 
39571 
3592 
3573 
3594 
3599 
3576 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 


LOG 


9898 
DESB 
DESB 
ا85‎ 
DSSB 
0810 
D8SE 
DESE 
D860 
D863 
D843 
DB&3 
D863 
0865 
D866 
D867 
D868 
DBE? 
DAC 
ج086‎ 
9871 
DE73 
D874 
D874 
D874 
D874 
D876 
D878 
D87B 
D87D 
D87D 
889.0 
DEEZ 
0894 
DSSA 
D887 
D887 
D887 
D884 
D88C 
ΡΒΘΕ 
D88F 
ΌΒΘΕ 
D891 
2 
]5 
D898 
D89B 
D89Cc 
06 
] 6 
ροσς 
DB7C 
D89C 
D89C 


CODE 


20 


AG 
40 


20 
A? 
4c 


Ab 
68 
aD 


9D 
60 


63 


66 
EA 


AB 


23 
13 
24 
14 


63 
73 
EA 


AB 


3E 


03 
50 


PAGE 0082 


08 


EE 


10 


10 


10 


FB 


Da 


EE 


43 
10 
43 


LINE 


-- -. we -:. 


TSERR 


TSER1 


i 


HED2TS 


TSCHK 


VNERR 


SJB1 


0 - A<. w دبا‎ -: ον 


OREAD 


JSR 


LDA 
JMP 


LDA 
ASL 
ASL 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
RTS 


LDA 
BEG 
CMP 
BCS 


JSR 
CMP 
BEG 
BCC 
RTS 


JSR 
LDA 
JMP 


LDX 
PLA 
STA 
STA 
STA 
RTS 


DO JOD IN . A; 


HED2TS 


+0 5 
CMDER2 


JOBNUM 
A 
A 
A 


HDRS+2, X 


TRACK 


HDRS+3, X 


SECTOR 


TRACK 
TSER1 
MAXTRK 
TSER1 


MAXSEG 
SECTOR 
TSER1 
TSER1 


HED2TS 
#CBMV2 
CMDER2 


JOBNUM 


CMD 
JOBS, X 


LSTJOD, X 


ILLEGAL TRACK AND SECTOR 


; WRITE TO WRONG VERSION 


SET UP ERROR COUNT 
AND LSTJOB. RETURN WHEN JOB DONE OK 
JMP TO ERROR IF ERROR RETURNS 


——- 


LINER 


3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3428 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3436 
3637 
3438 
234397 
3640 
3641 
3442 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3551 
3692 
3653 
3654 
3655 
2656 
3657 
3658 
3659 
3660 
3661 
3662 
3643 
3664 
3665 
3466 
3667 
3668 
3669 
3670 


“es © + 


DEFC 
D89E 
0860 
D840 
D8A2 
08۵2 
084 
66 
8۵6 
D8A9 
DHAL 
DEAF 
D8AF 
086۳ 
DSAF 
DBAF 
DBAF 
D8B2 
084 
DSBS 
07 
DEBA 
1 
86 
D8BC 
D8BG 
DSBC 
D8BC 
DSBC 
DBEC 
D8BF 
D8C1 
09063 
8065 
DECS 
0807 
DSC? 
DEC? 
0896٤8 
08610 
نا08‎ 
0 
0 
0821 
DBD2 
2ا08‎ 
DADA 
084 
84 


“DADA 


08804 
05 
DEDA 
D8D8 
D8D9 


CODE 


A? 
DO 


A? 


Q5 
A6 


8D 


AD 
20 


20 
48 
A9 
8D 


60 


c9 
DO 


4C 


18 
60 


38 
60 


80 
o2 


20 


12 
AB 


3E 
3E 
1B 


BC 
FB 


00 
QA 


oB 
07 


48 D9 


12 


PAGE 0083 


43 
43 
D8 


De 


43 


10 


20 B3 D? 


LINE 

LDA 210 

BNE DOJOB ; BRA 
DOWRIT 

LDA #WRITE 
DOJUD 

ORA DRVNUM 

LDX JOBNUM 


DOIT STA CMD 

DOIT2 LDA CMD 
JSR SETJOB 
JMP WATJOB 


WAIT UNTIL JOB(.X) IS DONE 
RETURN WHEN DONE 


WATJOB JSR TSTJOB 
BCS WATJOB 
PHA ; CLR JOBRTN FLAG 
LDA ۵ 
STA JOBRTN 
PLA 
RTS 


i š 


; TEST IF JOB(.X) 18 DONE YET 
; IF NOT DONE RETURN 
; IF OK THEN RETURN ELSE REDO IT 


TSTJOB LDA JOBS, X 
BMI NOTYET 
CMP 2 
BCC DK 


CMP 8 ; CHECK FOR WP SWITCH 0 
BEG TJ1O 


CMP #11 ; CHECK FOR ID MISMATCH 
BNE RECOV 
JMP QUIT2 
OK CLC ; C=O FINISHED OK OR QUIT 
RTS 
; Cz1 NOT YET 


NOTYET SEC 
RTS 


RECOV 
TYA i SAVE . Y 
PHA 
LDA DRVNUM i SAVE DRIVE 8 
PHA 
JSR DOREC 


JOBS. ..... PAGE 0084 


LINES LOG CODE LINE 

3671 09800 C9 O2 CMP #2 

3672 DEDE BO 03 BCS RECO1 

3673 DSEO 4C 79 D9 JMP RECSS 

3674 3 RECO1 

3675 D8E3 BD 50 43 LDA LSTJOB, X 

3676 DEES 48 PHA ; SAVE ORIGINAL JOB FOR LATEF 
3677 8857 29 O1 AND #1 

3678 DEE? 85 12 STA DRVNUM i SET ACTIVE DRIVE 4 
3679 88 i 

3680 DSEB 68 PLA ; ORIGINAL JOB 

3681  DGEC 29 FO AND ΗΦΕΟ i MASK JOB CODE 

3682 DBEE 48 PHA i SAVE IT 

3683 DSEF C9 90 CMP #WRITE 

3684 D8F1 DO O7 BNE RECO : NOT A WRITE 

3685 3 i 

3686 DSF3 AS 12 LDA DRVNUM 

3687 DSFS O? BB ORA #SECSEK ; REPLACE W/ SECTOR SEEK... 
3688 DSF7 7D 50 43 STA LSTJOB, X i... DURING RECOVERY 
3689 م9‎ RECO 

3690 DSFA ὃς FS 10 BIT REVCNT 

3691 DSFD 70 3A BVS RECS ; NO TRACK OFFSET 
36972  D8FF ; 

3693 DƏFF AI OO LDA 0 

3694 D901 8D 9B 43 STA EPTR ; CLR OFFSET TABLE PTR 
3695 Dp904 8D 9C 43 STA TOFF i CLR TOTAL OFFSET 
3696 D907 REC1 

3697  D907 AC 9B 43 LDY EPTR 

3698 0708 AD 9C 43 | LDA TOFF 

369? D?OD 38 SEC 

3700 DSOE FG BS 10 SEC OFFSET, Y 

3701 1711 BD 9C 43 STA TOFF i KEEP TRACK OF ALL OFFSETS 
3702 D914 B? BB 10 LDA OFFSET, Y 

3703 D917 20 83 D? JSR HEDOFF 

3704  D91A i 

3705 DJIA EE 9B 43 INC EPTR ; BUMP TABLE PTR 
3706 DFID 20 B3 D9 JSR DOREC i DO THE RECOVERY 
3707 D?20 C? O2 CMP #2 ; ERROR CODE < 2? 
3708 D?22 390 08 BCC REC3 ; JOB WORKED 

3709 D924 i 

3710 D924 AC 9B 43 LDY EPTR 

3711 D927 89 B8 10 LDA OFFSET, Y 

3712 D924 DO DB BNE RECI i NULL INDICATES END 
3713  D923C . REC3 

3714 99726 AD 9C 43 LDA TOFF 

3715 DY2F 20 83 D? JSR HEDOFF 

3716  D932 ; 

3717 D932 BD 03 10 LDA JOBS, X 

3718 D935 ο O2 CMP #2 

3719 D937 90 ΞΕ BCC REC? ; NO ERROR 

3720  D939 RECS 

3721. DFI? 2C FS 10 BIT REVCNT i CHECK BUMP-ON FLAG 
3722 D93C 10 10 BPL 7 i ND BUMP 

3723 DY3E i 

3724  D93E QUIT 


3725  D93E 68 | PLA 


LINER 


3726 
3727 
3728 
3727 
3730 
3731 
3732 


aya 
له / له‎ 


3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3790 
3751 
3792 
3793 
3754 
3795 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3769 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 


LDC 


D93F 
41 
D943 
D943 
]45 
0948 
D948 
D94B 
D94E 
D94E 
D94F 
D9 92 
D754 
05 
D9 sS 
D957 
D7597 
096 
D? SC 
D95F 
D961 
0961 
D?64 
066 
D968 
D968 
D949 
D96B 
D94D 
D96D 
D96F 
D972 
D975 
D977 
D979 
D979 
ΡΟΖΑ 
D97C 
D97D 
D97E 
0991 
092 
3 
D983 
D783 
DSBS 
D987 
D989 
D989 
DOGE 
ح98‎ 
D98F 
091 
D993 


D975 


CODE 


ος 
DO 


05 
9D 


BD 


20 


68 
2c 
30 
48 


A9 
oS 
9D 


BD 
30 


20 
Cc? 
BO 


68 
C9 
DO 


90 
05 


12 


50 
03 
B3 


9A 
25 


co 
12 
03 


03 
FB 


B3 


o2 
06 


90 
OG 
12 
50 
B3 


02 
CF 


12 


03 


00 


OG 


01 
نام 


OL 


OA 
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43 
10 
EE 


43 


10 


10 


D9 


43 


D9 


10 


DF 


LINE 


QUIT2 


REC7 


RECB 


REC? 


) 0 5 


HEDOFF 


HOF 1 


HOF 2 


CMP 
BNE 


ORA 
STA 


LDA 
JSR 


PLA 
BIT 
BMI 
PHA 


LDA 
ORA 
STA 


LDA 
BMI 


JSR 
CMP 
BCS 


PLA 
CMP 
BNE 


ORA 
STA 
JSR 
CMP 
BCS 


PLA 
STA 
PLA 
TAY 
LDA 
CLC 
RTS 


CMP 
BEG 
BMI 


LDY 
JER 
SEC 
SBC 
BNE 
BEG 


#WRITE ; CHECK ORIGINAL JOB 
QUIT2 
DRVNUM 
LSTJOB, X ; MUST RESTORE ORIGINAL 
JOBS, X ;. A= ERROR # 
ERROR 
JOBRTN 
REC9S 
; DO THE BUMP 
#BUMP 
DRVNUM 
JOBS, X 
JOBS, X 
RECS : WAIT 
DOREC ; TRY ONE LAST SET 
#2 
QUIT ; IT CLEARLY AIN’T GONNA WORK 
;CHECK ORIGINAL JOB FOR WRIT 
#WRITE 
RECYS ; ORIGINAL JOB WORKED 
DRVNUM 
LSTJOB, X ; SET WRITE JOB BACK 
DOREC ; TRY LAST SET OF WRITES 
#2 ; CHECK ERROR CODE 
QUIT2 ; ERROR 
DRVNUM ; RESTORE DRIVE 8 
; RESTORE . Y 
JOBS, X 
j; OK! 
j . A=OFFSET 
40 
ΗΟΕ 3 ; NO OFFSET 
HOF2 ; STEPS ARE INWARD 
Hi ; STEP QUT 1 TRACK 
MOVHED 
#1 
HOF 1 ; NOT FINISHED 
HOF3 


3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
2800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
38123 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 


38629 


3830 
5831 
3832 
3633 
3834 


2835 


s>. >è 


LOC 


D995 
D997 
0۸ 
D99B 
D99D 
D99F 
D99F 
DIAO 
00 
DIAO 
DIAL 
D9A2 
D9A4 
D9A7 
07 
D9AA 
DIAC 
06 
DFAE 
081 
02 
03 
DIES 
D9B3 
D9B3 
D986 
08 
D9B9 
D9B9 
D9BC 
D9BE 
وه‎ 1 
04 
D9C7 
] 7 
0۸ 
DICC 
D9CE 
D9DO 
D9DO 
091 
D9D3 
D9D3 
004 
07 
pepe 
DIDI 
D9D9 
DIDI 
وم‎ 
D9D9 
D9DC 
D9DC 
D9DD 
D9DE 


CODE 


AO 
20 
18 
EG 
DO 


60 


48 
98 
A4 
وو‎ 


09 
FO 


A9 
99 
68 
60 


FF 
AO 


01 
Fó 


12 
A1 
Al 


00 
Al 


FS 


82 


82 


50 


03 


FB 


03 


Eó 


F2 


DS 
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079 


10 


10 


10 


10 


02 
02 
43 
10 


10 


εφ 


E7 


LINE 


LDY 

JSR 

CLC 

ADC 

BNE 
HOF 3 

RTS 


MOVHED 
PHA 
TYA 
LDY 
STA 
MH10 
CMP 
BEG 


LDA 
STA 
PLA 
RTS 


DOREC 
LDA 
AND 
TAY 
DOREC 1 
L.DA 
EDR 
STA 
LDA 
STA 
100862 
LDA 
BMI 
CMP 
BCC 


DEY 

BNE 
DOREC 3 

PHA 

JSR 

PLA 

RTS 


ΗΦΕΕ ; STEP IN 1 TRACK 
MOVHED 
#1 
HOF2 ; NOT FINISHED 
; SAVE .A 
; PUT PHASE IN . ۵ 
DRVNUM 
PHASE, Y 
PHASE, Y 
MH10 ; WAIT FOR CONTROLLER 
i TO CHANGE IT 
#0 
PHASE, Y ; CLEAR IT QUT 
i RESTORE 
;DO LAST JOB RECOVERY 
REVCNT ;RE-TRY JOB REVCNT... 
#$3F ;...# OF TIMES 
PBD2 
HERRLED 
PBD2 
LSTJOB, X ; SET LAST JOB 
JOBS, X 
JOBS, X i WAIT 
DOREC2 
#2 
DOREC3 ; IT WORKED 
DOREC1 ; KEEP TRYING 
ERROFF 
; FINISHED 


CURRENT LINDX TO TRACK, SECTOR, ID 


; SET HEADER OF ACTIVE BUFFER DF THE 


SETHDR JSR 
SETH 
ASL 
ASL 
ASL 


GETACT 


۵ 
A 
A 


LINER 


3836 
3837 
3838 
3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3947 
3848 
3849 
3850 
3851 


D9DF 
090 
092 
095 
097 
D9EA 
D7EC 
D9ED 
D9EE 
D9F1 
D9F4 
D9F7 
D9FA 
D9FB 
DOFB 
D9FB 


CODE 


A8 
AS 
99 
AS 
99 
AS 
OA 
^^ 
BD 
99 
BD 
99 
&0 


13 


14 
24 
12 


42 
el 
43 


22 
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10 


10 


43 
10 
43 
10 


TAY 
LDA 
STA 
LDA 
STA 
LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
RTS 


. END 


TRACK 
HDRS+2, Y 
SECTOR 
۲۶1085+3۷ ; SET SECTOR 

DRVNUM i GET PROPER ID(DRVNUM?) 
۵ 


; SET TRACK 


DSKID, X 
HDRS, Y 
DSKAID-*1,X 
HDRS-*1,Y 


.LIB ADDFIL 


2907 
2708 
2909 
2910 
2911 
2912 
29123 
2914 
2915 
2716 
2917 
2718 
2919 
2720 
2721 
2722 
2723 
2924 
2925 
2726 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
29745 
2946 
2947 
2948 
2949 
2950 


2952 
2953 
2954 
2955 
2756 
2957 
2958 
2759 
2960 
2961 


»® م هم a‏ 


LOC 


D47F 
047۴ 
D47F 
D47F 
D47F 
D47F 
D47F 
D47F 
D47F 
D47F 
D47F 
D47F 
D481 
5483 
D485 
D487 
D488 


D48A . 
D48B 


] 8٤0 
049-2 
D490 
D491 
D493 
D495 
D494 
D497 
D498 
DASA 
D49B 
D47C 
D49C 
D49C 
DA9E 
040 
04۵1 
D4A3 
D4A5 
D4A6 
06 
D44? 
D4AA 
04۵1 
D4AD 


D4AE 
D4AE 
D4AE 
D4AE 
D4B1 
DADA 
06 
95488 
049 
0488 


CODE 


16 
13 
02 
OF 


AC 


OA 


OF 
19 


F6 


19 
ΘΑ 


07 


04 


DS 


15 


AS 
C7 


2? 


29 
C7 
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E7 


DA 
00 


00 


LINE 


18 
HS: 
i جد چڊ چډږ چږ چږ‎ ME چو ېد چو چب جد‎ ΣΕΠΕ 
; * 
; * FNDWCH 
i% 
i SHEE HEE JE HE JEJE E JE HE bk 3٤ ٤ + ۴ 
j Å 
3 * 
FNDWCH LDA SA 
۱ CMP HMAXSA+1 
BCC ۱752 
AND ۳۴ت‎ 
FNDW13 TAX 
LDA LINTADB, X 
TAY 
ASL A 
BCC 1۵٣٤۹ 
BMI 2 0 
FNDW10 TYA 
AND #$OF 
STA LINDA 
TAX 
CLC 
RTS 
FNDW15 BMI 060 
FNDW20 SEC 
RTS 


TYPFIL ; GET FILE TYPE 
LDX LINDX 
LDA FILTYP,X 
LSR A 
AND 7 
CMP HRELTYP 
RTS 


GETPRE JSR GETACT 
ASL ۵ 
TAX 
LDY LINDX 
RTS 


; READ BYTE FROM ACTIVE BUFFER 
; AND SET FLAG IF LAST DATA BYTE 
; IF LAST THEN Z=1 ELSE Z=0 i 
GETBYT JSR GETPRE 

LDA LSTCHR, Y 

BEG GETB1 

LDA (BUFTAB, X) 

PHA 

LDA BUFTAB, X 

CMP LSTCHR, Y 


